Linux Cubed Series 3: Developer Tools

home *** CD-ROM | disk | FTP | other *** search

/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / editor.fas < prev next >

Wrap

CLISP byte-compiled Lisp program | 1996-07-22 | 115.9 KB | 2,689 lines

(SYSTEM::VERSION '(19071996.)) #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01) "LISP" ) #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01) (EDITOR ED *USE-ED*) ) #Y(#:TOP-LEVEL-FORM-3 #21Y(00 00 00 00 00 00 00 00 00 01 D8 6A 01 37 03 30 BC 0F 01 19 01) EDITOR *FEATURES* ) #Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01) "EDITOR" ) #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *WINDOW*) *WINDOW* ) #Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL GLOBAL-SCREEN-HEIGHT) GLOBAL-SCREEN-HEIGHT ) #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL GLOBAL-SCREEN-WIDTH) GLOBAL-SCREEN-WIDTH ) #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL BLANKS) BLANKS ) #Y(#:TOP-LEVEL-FORM-9 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) WITH-WINDOW SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-WINDOW #32Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 D9 DA DB DC DD DE DF A3 7B 02 7A 04 CB 7B 02 60 03 19 04 ) LET* ((*WINDOW* (SCREEN:MAKE-WINDOW))) UNWIND-PROTECT MULTIPLE-VALUE-BIND (GLOBAL-SCREEN-HEIGHT GLOBAL-SCREEN-WIDTH) (SCREEN:WINDOW-SIZE *WINDOW*) LET ((BLANKS (MAKE-STRING GLOBAL-SCREEN-WIDTH :INITIAL-ELEMENT #\Space))) ((CLOSE *WINDOW*)) ) ) #Y(#:TOP-LEVEL-FORM-10 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) BELL SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(BELL #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (WRITE-CHAR #\Bell *TERMINAL-IO*) ) ) #Y(#:TOP-LEVEL-FORM-11 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-SET-CURSOR SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-SET-CURSOR #38Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 0F 9D 5B 77 9E 5B 5B 77 DA DB AD AD 60 04 19 05 AC 2E 01 19 03 ) 3. SYSTEM::MACRO-CALL-ERROR SCREEN:SET-WINDOW-CURSOR-POSITION *WINDOW* ) ) #Y(#:TOP-LEVEL-FORM-12 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-HOME SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-HOME #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN-SET-CURSOR 0. 0.) ) ) #Y(#:TOP-LEVEL-FORM-13 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-CLEAR-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CLEAR-SCREEN #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-14 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-CLEAR-END-OF-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CLEAR-END-OF-SCREEN #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW-TO-EOT *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-15 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CLEAR-END-OF-LINE #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:CLEAR-WINDOW-TO-EOL *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-16 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-INSERT-LINE #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:INSERT-WINDOW-LINE *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-17 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-DELETE-LINE #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:DELETE-WINDOW-LINE *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-18 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-CURSOR-ON SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CURSOR-ON #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:WINDOW-CURSOR-ON *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-19 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-CURSOR-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-CURSOR-OFF #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:WINDOW-CURSOR-OFF *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-20 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-REVERSE-ON SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-REVERSE-ON #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:HIGHLIGHT-ON *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-21 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) SCREEN-REVERSE-OFF SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(SCREEN-REVERSE-OFF #26Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 30 03 C5 19 03 AC 2E 01 19 03 ) 1. SYSTEM::MACRO-CALL-ERROR (SCREEN:HIGHLIGHT-OFF *WINDOW*) ) ) #Y(#:TOP-LEVEL-FORM-22 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GET-NEW-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-NEW-LINE #22Y(00 00 00 00 01 00 00 00 00 02 AB 63 37 06 C3 FB A4 F8 30 1C 19 02) STRING-CHAR ) ) #Y(#:TOP-LEVEL-FORM-23 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-EMPTY-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-EMPTY-TEXT #33Y(00 00 00 00 00 00 01 00 00 07 3A 01 03 0E 00 F7 AB 63 37 06 C4 F8 70 1C D9 6E 02 AB 30 19 15 19 02 ) GLOBAL-SCREEN-HEIGHT 0. GET-NEW-LINE ) ) #Y(#:TOP-LEVEL-FORM-24 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) MAKE-MARK SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MAKE-MARK #37Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 0E 9D 5B 77 9E 5B 5B 77 DA AC AC 60 03 19 05 AC 2E 01 19 03 ) 3. SYSTEM::MACRO-CALL-ERROR CONS ) ) #Y(#:TOP-LEVEL-FORM-25 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) MARK-LIN SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MARK-LIN #32Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 09 9D 5B 77 DA AB 60 02 19 04 AC 2E 01 19 03 ) 2. SYSTEM::MACRO-CALL-ERROR CAR ) ) #Y(#:TOP-LEVEL-FORM-26 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) MARK-COL SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MARK-COL #32Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 09 9D 5B 77 DA AB 60 02 19 04 AC 2E 01 19 03 ) 2. SYSTEM::MACRO-CALL-ERROR CDR ) ) #Y(#:TOP-LEVEL-FORM-27 #846Y(00 00 00 00 00 00 00 00 00 01 00 2A 04 C3 0B 00 00 C4 0B 00 01 C5 0B 00 02 C6 0B 00 03 DC 2E 05 DC AB 6C 06 01 31 84 DF E0 E1 63 DC E2 E3 E4 67 08 00 7A 01 E5 63 62 72 07 00 E6 E7 E8 E9 EA EB 67 0C 01 7A 01 EC 63 62 72 07 00 ED EE EF 67 0D 02 7A 01 F0 F1 62 72 07 00 F2 F3 F4 67 0E 03 7A 01 F5 F1 62 72 07 00 03 1E 7B 07 67 06 00 67 07 01 67 08 02 67 09 03 72 08 00 31 8A 16 01 DF 2E 1F 64 20 30 5E 64 21 2E 05 64 21 64 22 64 23 31 8A 64 21 64 24 31 84 64 25 30 5E 64 26 30 5E 64 27 2E 05 64 27 64 22 64 28 31 8A 64 27 64 29 31 84 64 2A 30 5E 64 2B 30 5E 64 2C 2E 05 64 2C 64 22 64 2D 31 8A 64 2C 64 2E 31 84 64 2F 30 5E 64 30 30 5E 64 31 2E 05 64 31 64 22 64 32 31 8A 64 31 64 33 31 84 64 34 30 5E 64 35 30 5E 64 36 2E 05 64 36 64 22 64 37 31 8A 64 36 64 38 31 84 64 39 30 5E 64 3A 30 5E 64 3B 2E 05 64 3B 64 22 64 3C 31 8A 64 3B 64 3D 31 84 64 3E 30 5E 64 3F 30 5E 64 40 2E 05 64 40 64 22 64 41 31 8A 64 40 64 42 31 84 64 43 30 5E 64 44 30 5E 64 45 2E 05 64 45 64 22 64 46 31 8A 64 45 64 47 31 84 64 48 30 5E 64 49 30 5E 64 4A 2E 05 64 4A 64 22 64 4B 31 8A 64 4A 64 4C 31 84 64 4D 30 5E 64 4E 30 5E 64 4F 2E 05 64 4F 64 22 64 50 31 8A 64 4F 64 51 31 84 64 52 30 5E 64 53 30 5E 64 54 2E 05 64 54 64 22 64 55 31 8A 64 54 64 56 31 84 64 57 30 5E 64 58 30 5E 64 59 2E 05 64 59 64 22 64 5A 31 8A 64 59 64 5B 31 84 64 5C 30 5E 64 5D 30 5E 64 5E 2E 05 64 5E 64 22 64 5F 31 8A 64 5E 64 60 31 84 64 61 30 5E 64 62 30 5E 64 63 2E 05 64 63 64 22 64 64 31 8A 64 63 64 65 31 84 64 66 30 5E 64 67 30 5E 64 68 2E 05 64 68 64 22 64 69 31 8A 64 68 64 6A 31 84 64 6B 30 5E 64 6C 30 5E 64 6D 2E 05 64 6D 64 22 64 6E 31 8A 64 6D 64 6F 31 84 64 27 64 70 64 71 03 72 79 31 8A 64 27 64 73 62 2C 03 74 64 2C 64 70 64 71 03 75 79 31 8A 64 2C 64 73 62 2C 03 74 64 31 64 70 64 71 03 76 79 31 8A 64 31 64 73 62 2C 03 74 64 36 64 70 64 71 03 77 79 31 8A 64 36 64 73 62 2C 03 74 64 3B 64 70 64 71 03 78 79 31 8A 64 3B 64 73 62 2C 03 74 64 40 64 70 64 71 03 79 79 31 8A 64 40 64 73 62 2C 03 74 64 45 64 70 64 71 03 7A 79 31 8A 64 45 64 73 62 2C 03 74 64 4A 64 70 64 71 03 7B 79 31 8A 64 4A 64 73 62 2C 03 74 64 4F 64 70 64 71 03 7C 79 31 8A 64 4F 64 73 62 2C 03 74 64 54 64 70 64 71 03 7D 79 31 8A 64 54 64 73 62 2C 03 74 64 59 64 70 64 71 03 7E 79 31 8A 64 59 64 73 62 2C 03 74 64 5E 64 70 64 71 03 7F 79 31 8A 64 5E 64 73 62 2C 03 74 64 63 64 70 64 71 03 80 80 79 31 8A 64 63 64 73 62 2C 03 74 64 68 64 70 64 71 03 80 81 79 31 8A 64 68 64 73 62 2C 03 74 64 6D 64 70 64 71 03 80 82 79 31 8A 64 6D 64 73 62 2C 03 74 DF 64 80 83 62 2C 03 74 DF 64 80 84 31 8B CA 19 01 ) #Y(DEFAULT-TEXT #14Y(00 00 00 00 00 00 00 00 00 01 2D 00 19 01) MAKE-EMPTY-TEXT ) #Y(DEFAULT-MARKS #22Y(00 00 00 00 00 00 00 00 00 01 D8 63 37 06 C3 F8 7C 04 30 1C 19 01) 12. ) #Y(DEFAULT-HEIGHT #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-HEIGHT ) #Y(DEFAULT-WIDTH #14Y(00 00 00 00 00 00 00 00 00 01 0E 00 19 01) GLOBAL-SCREEN-WIDTH ) MK-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MK-SCREEN #208Y(00 00 00 00 00 00 00 00 80 1B 0F 00 01 00 3A 0F 07 68 00 01 35 00 09 0F 3A 0E 03 D3 09 0E 3A 0D 03 D3 09 0D 3A 0C 03 D3 09 0C 3A 0B 07 68 00 02 35 00 09 0B 3A 0A 07 68 00 03 35 00 09 0A 3A 09 06 68 00 04 35 00 FF 3A 08 02 D3 FE 3A 07 02 D3 FD 3C 06 3A 05 02 7D 05 3A 04 02 D3 FA 3A 03 02 D3 F9 3A 02 02 D4 F8 3C 01 EA EB 71 34 EC AB ED BD 31 33 EC AB EE BC 31 33 EC AB EF BB 31 33 EC AB F0 BA 31 33 EC AB F1 B9 31 33 EC AB F2 B8 31 33 EC AB F3 B7 31 33 EC AB F4 B6 31 33 EC AB F5 B5 31 33 EC AB 64 1E B4 31 33 EC AB 64 1F B3 31 33 EC AB 64 20 B2 31 33 EC AB 64 21 B1 31 33 EC AB 64 22 B0 31 33 EC AB 64 23 AF 31 33 15 19 10 ) NIL :TEXT :LIN :COL :SAVED-COL :MARKS :HEIGHT :WIDTH :TOP-LIN :LEFT-COL :VISIBILITY :FULL? :PHYS-LEFT-COL :PHYS-TOP-LIN :TITLE :OLCHAR 0. #1="" #2=(SCREEN) 16. SCREEN 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. ) SCREEN SYSTEM::DEFSTRUCT-DESCRIPTION #2# TEXT (:TEXT) 1. (SVREF (GET 'SCREEN 'SYSTEM::DEFSTRUCT-DESCRIPTION) 4.) #(LIN (:LIN) 2. (NIL . 0.) 0. INTEGER NIL) #(COL (:COL) 3. (NIL . 0.) 0. INTEGER NIL) #(SAVED-COL (:SAVED-COL) 4. (NIL . 0.) 0. INTEGER NIL) MARKS (:MARKS) 5. (SVREF (GET 'SCREEN 'SYSTEM::DEFSTRUCT-DESCRIPTION) 5.) HEIGHT (:HEIGHT) 6. (SVREF (GET 'SCREEN 'SYSTEM::DEFSTRUCT-DESCRIPTION) 6.) INTEGER WIDTH (:WIDTH) 7. (SVREF (GET 'SCREEN 'SYSTEM::DEFSTRUCT-DESCRIPTION) 7.) (#(TOP-LIN (:TOP-LIN) 8. (NIL . 0.) 0. INTEGER NIL) #(LEFT-COL (:LEFT-COL) 9. (NIL . 0.) 0. INTEGER NIL) #(VISIBILITY (:VISIBILITY) 10. (NIL) NIL VECTOR NIL) #(FULL? (:FULL?) 11. (NIL . T) T T NIL) #(PHYS-LEFT-COL (:PHYS-LEFT-COL) 12. (NIL . 0.) 0. INTEGER NIL) #(PHYS-TOP-LIN (:PHYS-TOP-LIN) 13. (NIL . 0.) 0. INTEGER NIL) #(TITLE (:TITLE) 14. (NIL . #1#) #1# STRING NIL) #(OLCHAR (:OLCHAR) 15. (NIL) NIL (OR NULL CHARACTER) NIL) ) CLOS::DEFINE-STRUCTURE-CLASS (INLINE SCREEN-P) SCREEN-P SYSTEM::INLINE-EXPANSION ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SCREEN-P)) (BLOCK SCREEN-P (SYSTEM::%STRUCTURE-TYPE-P 'SCREEN SYSTEM::OBJECT)) ) #Y(SCREEN-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) SCREEN) (FUNCTION SCREEN-TEXT (SCREEN) T) (INLINE SCREEN-TEXT) SCREEN-TEXT (#3=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SCREEN-TEXT)) (BLOCK SCREEN-TEXT (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 1.)) ) ) #Y(SCREEN-TEXT #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 1. ) (FUNCTION SCREEN-LIN (SCREEN) INTEGER) (INLINE SCREEN-LIN) SCREEN-LIN (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-LIN)) (BLOCK SCREEN-LIN (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 2.)) ) ) #Y(SCREEN-LIN #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 2. ) (FUNCTION SCREEN-COL (SCREEN) INTEGER) (INLINE SCREEN-COL) SCREEN-COL (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-COL)) (BLOCK SCREEN-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 3.)) ) ) #Y(SCREEN-COL #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 3. ) (FUNCTION SCREEN-SAVED-COL (SCREEN) INTEGER) (INLINE SCREEN-SAVED-COL) SCREEN-SAVED-COL (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-SAVED-COL)) (BLOCK SCREEN-SAVED-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 4.)) ) ) #Y(SCREEN-SAVED-COL #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 4. ) (FUNCTION SCREEN-MARKS (SCREEN) T) (INLINE SCREEN-MARKS) SCREEN-MARKS (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-MARKS)) (BLOCK SCREEN-MARKS (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 5.)) ) ) #Y(SCREEN-MARKS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 5. ) (FUNCTION SCREEN-HEIGHT (SCREEN) INTEGER) (INLINE SCREEN-HEIGHT) SCREEN-HEIGHT (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-HEIGHT)) (BLOCK SCREEN-HEIGHT (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 6.)) ) ) #Y(SCREEN-HEIGHT #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 6. ) (FUNCTION SCREEN-WIDTH (SCREEN) INTEGER) (INLINE SCREEN-WIDTH) SCREEN-WIDTH (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-WIDTH)) (BLOCK SCREEN-WIDTH (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 7.)) ) ) #Y(SCREEN-WIDTH #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 7. ) (FUNCTION SCREEN-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-TOP-LIN) SCREEN-TOP-LIN (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-TOP-LIN)) (BLOCK SCREEN-TOP-LIN (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 8.)) ) ) #Y(SCREEN-TOP-LIN #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 8. ) (FUNCTION SCREEN-LEFT-COL (SCREEN) INTEGER) (INLINE SCREEN-LEFT-COL) SCREEN-LEFT-COL (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-LEFT-COL)) (BLOCK SCREEN-LEFT-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 9.)) ) ) #Y(SCREEN-LEFT-COL #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 9. ) (FUNCTION SCREEN-VISIBILITY (SCREEN) VECTOR) (INLINE SCREEN-VISIBILITY) SCREEN-VISIBILITY (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-VISIBILITY)) (BLOCK SCREEN-VISIBILITY (THE VECTOR (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 10.)) ) ) #Y(SCREEN-VISIBILITY #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 10. ) (FUNCTION SCREEN-FULL? (SCREEN) T) (INLINE SCREEN-FULL?) SCREEN-FULL? (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-FULL?)) (BLOCK SCREEN-FULL? (THE T (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 11.)) ) ) #Y(SCREEN-FULL? #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 11. ) (FUNCTION SCREEN-PHYS-LEFT-COL (SCREEN) INTEGER) (INLINE SCREEN-PHYS-LEFT-COL) SCREEN-PHYS-LEFT-COL (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-PHYS-LEFT-COL)) (BLOCK SCREEN-PHYS-LEFT-COL (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 12.)) ) ) #Y(SCREEN-PHYS-LEFT-COL #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 12. ) (FUNCTION SCREEN-PHYS-TOP-LIN (SCREEN) INTEGER) (INLINE SCREEN-PHYS-TOP-LIN) SCREEN-PHYS-TOP-LIN (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-PHYS-TOP-LIN)) (BLOCK SCREEN-PHYS-TOP-LIN (THE INTEGER (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 13.)) ) ) #Y(SCREEN-PHYS-TOP-LIN #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 13. ) (FUNCTION SCREEN-TITLE (SCREEN) STRING) (INLINE SCREEN-TITLE) SCREEN-TITLE (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-TITLE)) (BLOCK SCREEN-TITLE (THE STRING (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 14.)) ) ) #Y(SCREEN-TITLE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 14. ) (FUNCTION SCREEN-OLCHAR (SCREEN) #4=(OR NULL CHARACTER)) (INLINE SCREEN-OLCHAR) SCREEN-OLCHAR (#3# (DECLARE (SYSTEM::IN-DEFUN SCREEN-OLCHAR)) (BLOCK SCREEN-OLCHAR (THE #4# (SYSTEM::%STRUCTURE-REF 'SCREEN SYSTEM::OBJECT 15.)) ) ) #Y(SCREEN-OLCHAR #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SCREEN 15. ) SYSTEM::SETF-EXPANDER -1. #Y(SETF-SCREEN-TEXT #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 1. ) SETF SYSTEM::%SET-DOCUMENTATION #Y(SETF-SCREEN-LIN #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 2. THE INTEGER ) #Y(SETF-SCREEN-COL #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 3. THE INTEGER ) #Y(SETF-SCREEN-SAVED-COL #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 4. THE INTEGER ) #Y(SETF-SCREEN-MARKS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 5. ) #Y(SETF-SCREEN-HEIGHT #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 6. THE INTEGER ) #Y(SETF-SCREEN-WIDTH #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 7. THE INTEGER ) #Y(SETF-SCREEN-TOP-LIN #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 8. THE INTEGER ) #Y(SETF-SCREEN-LEFT-COL #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 9. THE INTEGER ) #Y(SETF-SCREEN-VISIBILITY #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 10. THE VECTOR ) #Y(SETF-SCREEN-FULL? #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'SCREEN 11. ) #Y(SETF-SCREEN-PHYS-LEFT-COL #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 12. THE INTEGER ) #Y(SETF-SCREEN-PHYS-TOP-LIN #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 13. THE INTEGER ) #Y(SETF-SCREEN-TITLE #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 14. THE STRING ) #Y(SETF-SCREEN-OLCHAR #26Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA DB DC B2 7A 03 60 05 19 04 ) SYSTEM::%STRUCTURE-STORE 'SCREEN 15. THE #4# ) STRUCTURE SYSTEM::STRUCTURE-PRINT ) #Y(#:TOP-LEVEL-FORM-28 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-SCREEN #282Y(00 00 00 00 00 00 00 00 80 1B 06 00 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 80 D5 7C 01 92 06 80 D3 DE 91 07 80 71 DF 6A 08 E1 72 02 37 37 01 71 B6 32 02 35 14 81 01 33 06 E2 91 06 80 66 DF 6A 0B E4 71 D4 32 02 35 14 81 01 33 05 91 03 80 61 DE 6A 08 B2 72 01 36 E4 71 D4 81 01 33 03 91 04 80 6F DE 6A 0B B1 72 01 36 E4 71 D4 81 01 33 04 D8 B1 D9 B2 E5 62 DC 91 09 01 D1 14 DD B4 E7 B9 E8 BA E9 BF 6E 12 EB EC C2 72 02 35 37 07 7C 04 70 1C 2C 12 15 19 07 14 DF 6A 08 72 02 35 32 01 34 1A FF 90 14 DF 6A 0B 72 02 35 32 01 34 1A FF 96 DE AE 72 01 33 6A 08 DE DE 72 02 36 81 01 34 03 B0 6A 08 DE B0 72 02 36 81 01 34 06 92 04 FF 91 DE AF 72 01 33 6A 0B DE E2 72 02 36 81 01 34 04 AF 6A 0B DE B1 72 02 36 81 01 34 05 1A FF 80 91 06 FF 2D 91 05 FF 29 91 04 FF 25 91 03 FF 21 91 02 FF 1D 91 01 FF 19 EB EC 6A 08 72 02 35 37 07 7C 04 70 1C 2F 15 19 07 ) :HEIGHT :WIDTH :LEFT-COL :TOP-LIN :TITLE :OLCHAR 1. -2. GLOBAL-SCREEN-HEIGHT 0.67s0 10. GLOBAL-SCREEN-WIDTH -1. :FULL? "" :PHYS-LEFT-COL :PHYS-TOP-LIN :TEXT MAKE-EMPTY-TEXT :VISIBILITY 2. MK-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-29 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) RESIZE-ARRAY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(RESIZE-ARRAY #44Y(00 00 00 00 02 00 01 00 00 09 3A 01 02 C3 F7 AD D9 70 07 AD 8F 01 32 0E AD AD AD 72 02 35 37 06 A5 F8 30 1D 19 04 AD AD 30 18 19 04 ) 10. 0. ) ) #Y(#:TOP-LEVEL-FORM-30 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SHRINK-ARRAY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHRINK-ARRAY #50Y(00 00 00 00 02 00 00 00 00 03 AC 70 17 AA AD 72 01 36 AE AB 30 18 AE 70 05 02 21 03 00 19 05 AA 1A 08 AF AB 62 32 01 02 84 00 AA AD 8E 04 73 00 19 06 ) ) ) #Y(#:TOP-LEVEL-FORM-31 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DISPLAY-BLANKS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DISPLAY-BLANKS #45Y(00 00 00 00 02 00 00 00 00 03 AB AD 72 01 36 AA D8 90 01 30 07 AC 6A 01 8F 01 32 0B 6A 04 6A 02 37 01 AD 30 8E 19 04 6A 02 2E 03 19 04 ) 3. GLOBAL-SCREEN-WIDTH *WINDOW* SCREEN:CLEAR-WINDOW-TO-EOL BLANKS ) ) #Y(#:TOP-LEVEL-FORM-32 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DISPLAY-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DISPLAY-LINE #149Y(00 00 00 00 05 00 00 00 00 06 AF 71 4A AD 90 01 30 80 5E AF 71 4A AC 72 01 34 92 05 80 5A 92 04 80 56 AE AE 8F 01 31 80 4F AF AB 8F 01 32 80 48 AF AE 90 01 31 07 AA AF 8F 01 31 80 41 AF AE 81 01 33 05 AE AB 81 01 34 04 B0 6A 01 AF B2 30 8E 6A 01 2E 02 B0 6A 01 B1 B1 30 8E 6A 01 2E 03 B0 6A 01 A1 14 AD 30 8E AA B1 71 4A 8D 04 21 00 19 07 AC AC 2F 00 00 19 06 B0 6A 01 A0 1A 65 6A 01 2E 02 B0 6A 01 AF AD 30 8E 6A 01 2E 03 1A 58 AA AD 2F 00 19 07 ) DISPLAY-BLANKS *WINDOW* SCREEN:HIGHLIGHT-ON SCREEN:HIGHLIGHT-OFF ) ) #Y(#:TOP-LEVEL-FORM-33 #23Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 62 6C 02 01 31 84 C3 19 01) SHOW-SCREEN-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHOW-SCREEN-LINE #397Y(00 00 00 00 04 00 00 00 00 05 D9 AF DA 71 32 D9 B0 DB 71 32 D9 B1 DC 71 32 D9 B2 DD 71 32 D9 B3 DE 8D 32 80 BB B0 E0 81 01 33 06 AF AD 31 99 14 81 01 34 05 AF B1 90 01 30 81 4F D9 B3 DE 8D 32 80 A9 E0 B2 AF 90 02 31 81 40 6A 09 AB B3 72 02 35 AD B3 72 02 35 2C 03 0A B1 23 08 80 A2 B1 AE 8D 04 80 CD D9 B3 EB 71 32 B2 D9 B5 EC 71 32 72 02 35 D9 B5 ED 71 32 AB AD 71 4A 8F 01 2F 80 D2 03 16 14 D9 B7 EF 71 32 AA DF 72 01 01 AB EB 72 01 01 B7 24 08 08 F0 6A 09 30 8D CA 09 0D AD 92 02 0F 77 B1 8D 04 80 B2 93 02 B1 8F 01 2F 80 AF 00 14 92 02 0F 77 B2 8D 04 80 A8 93 02 B2 8F 01 30 80 A5 00 14 B1 BB 72 02 35 B2 BB B9 72 01 34 72 02 35 2C 05 19 B6 95 0A 8D 04 80 91 00 19 10 B0 DF 81 01 33 06 AF 9E 1A FF 44 E0 B2 AF 90 02 2F 80 97 1A FF 54 62 E6 B0 E7 AF 2C 05 10 1A 1C D9 B3 E3 71 32 D9 B4 E4 8D 32 01 D0 14 70 4F AB 71 4A AF 8F 01 2F 5F AB DF B0 31 48 14 E5 70 4F 72 03 13 AA 6A 09 95 0A 95 0A 30 8E 19 0B 9E 1A 13 B0 24 08 07 E9 6A 09 30 8D CA FC DF B0 95 04 8D 04 6B A1 14 B2 72 01 36 1A 31 E9 6A 09 30 8D 19 09 AC AC 32 01 01 1A FF 28 9D 5B 1A FF 52 CA 1A FF 4E 9D 5B 1A FF 5C AF 31 4A 1A FF 56 F0 6A 09 30 8D 19 10 EA 6A 09 30 8D 84 01 AB AB 90 01 32 73 16 02 AF 95 03 8D 04 41 00 19 09 ) NIL SCREEN 6. 7. 12. 13. 11. 0. -1. *WINDOW* SCREEN:SET-WINDOW-CURSOR-POSITION 14. 15. #\# #Y(SHOW-SCREEN-LINE-1 #43Y(00 00 00 00 04 00 00 00 01 1A AF 70 95 AA 71 78 B1 63 63 B3 62 D8 B5 B2 01 04 BA B7 30 89 B6 71 79 7A 01 2C 0D 01 16 02 9C 19 06 ) 0. SYSTEM::DO-FORMAT-JUSTIFICATION ) #\= FORMAT #\+ #\- 1. 8. 9. "" 5. #\| DISPLAY-LINE ) ) #Y(#:TOP-LEVEL-FORM-34 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SHOW-SCREEN-LINE-V SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHOW-SCREEN-LINE-V #104Y(00 00 00 00 04 00 00 00 00 05 D8 AF D9 71 32 D8 B0 DA 71 32 D8 B1 DB 71 32 AF DC 81 01 33 05 AE AC 81 01 34 04 AF AF 90 01 2F 07 DD B1 AE 8F 02 2F 03 00 19 08 AA 95 07 72 01 01 62 1A 23 86 01 00 78 B2 90 01 30 18 93 00 B1 90 01 2F 11 B3 B3 B3 93 03 72 01 33 B3 94 04 72 01 34 2C 04 06 82 01 AB 8C 97 59 00 19 0A ) SCREEN 6. 7. 10. 0. -1. SHOW-SCREEN-LINE ) ) #Y(#:TOP-LEVEL-FORM-35 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DISPLAY-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DISPLAY-SCREEN #49Y(00 00 00 00 01 00 02 00 00 0D 3A 02 02 C3 F8 3A 01 06 D9 AE DA 80 32 01 D9 AE DB 71 32 AD 1A 09 AF AB D8 AE 2C 04 04 84 00 AA AE 8E 04 72 02 19 06 ) 0. SCREEN 6. 7. SHOW-SCREEN-LINE-V ) ) #Y(#:TOP-LEVEL-FORM-36 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UPDATE-VISIBILITY-LIST-1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-VISIBILITY-LIST-1 #117Y(00 00 00 00 03 00 00 00 00 04 00 2A 02 7E 03 00 00 7E 02 00 01 AA 6C 00 01 AF 37 05 80 55 04 AA 6C 01 01 AF 37 01 70 B9 AB 6C 02 01 B0 37 01 70 B9 92 01 07 92 00 04 AB 9C 21 11 91 01 2C 92 00 06 77 67 03 01 30 AD 16 02 9F 19 05 67 02 01 93 02 94 00 67 05 00 AC AB 30 AF 9C 16 03 79 AA 9E 5B 79 AD AB 30 AF 16 02 1A 5D 77 67 03 00 30 AF 92 00 54 1A 4C ) #Y(UPDATE-VISIBILITY-LIST-1-1 #32Y(00 00 00 00 01 00 00 00 00 02 68 00 01 93 02 32 01 31 1E 0A 94 01 68 00 02 32 01 31 19 02 19 02 ) NIL ) #Y(UPDATE-VISIBILITY-LIST-1-2 #22Y(00 00 00 00 01 00 00 00 00 02 93 01 68 00 01 94 03 32 02 2F 19 02 ) NIL ) #Y(UPDATE-VISIBILITY-LIST-1-3 #22Y(00 00 00 00 01 00 00 00 00 02 93 01 68 00 02 94 03 32 02 2F 19 02 ) NIL ) ) ) #Y(#:TOP-LEVEL-FORM-37 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UPDATE-VISIBILITY-LIST-2 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-VISIBILITY-LIST-2 #98Y(00 00 00 00 03 00 00 00 00 04 62 AE 92 00 14 AD 9C 5A 77 8F 01 31 0C AA 94 01 9C F9 9B F8 16 02 91 00 6C 92 00 21 AD 9C 5A 77 8F 01 2F 19 93 00 AF 30 AD 92 01 19 9C 5A 78 AF 8D 04 16 AB 9C 14 30 AF 16 02 9E 19 04 AE 9F 79 83 00 91 01 67 9B FB 1A 6F 9B 5A 78 93 02 AB 30 AF 16 01 AB 9C 5B 1A 5D ) ) ) #Y(#:TOP-LEVEL-FORM-38 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UPDATE-VISIBILITY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-VISIBILITY #122Y(00 00 00 00 05 00 00 00 00 06 D8 B0 D9 71 32 D8 B1 DA 71 32 D8 B2 DB 71 32 DC B2 AE 72 01 36 72 01 33 D8 B4 DD 71 32 71 99 B2 AF 72 01 36 72 01 34 DC B2 AF 72 01 36 72 01 33 D8 B6 DE 71 32 71 99 B2 B0 72 01 36 72 01 34 AC AE 90 01 30 06 AA AC 8F 01 30 03 00 19 0D 95 03 95 03 1A 14 B0 AC 72 01 01 AE AE 6D 03 07 B1 AD AC 32 01 02 16 01 84 01 AB AB 8E 04 67 00 19 0F ) SCREEN 13. 12. 10. -1. 6. 7. UPDATE-VISIBILITY-LIST-1 ) ) #Y(#:TOP-LEVEL-FORM-39 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SHOW-NEWLY-VISIBLE-LINE-PARTS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SHOW-NEWLY-VISIBLE-LINE-PARTS #165Y(00 00 00 00 04 00 00 00 00 05 91 04 80 4C 00 19 05 B1 B7 B0 B2 32 02 35 1A 80 83 95 02 AE 95 04 72 01 01 DE AE 72 01 33 B2 AE 72 01 34 6D 03 08 AF AC AC 32 01 02 16 02 AB DE 90 01 2F 07 B1 B7 B7 96 07 27 11 B2 AD AD AD 2C 04 09 AA B0 8F 01 30 FF BE 00 19 0E 92 04 FF B4 93 04 94 05 D8 AC D9 71 32 D8 AD DA 71 32 71 99 D8 AE DB 71 32 D8 AF DC 71 32 B3 D8 B1 DD 71 32 72 01 36 B3 AD 72 01 36 B3 AE 72 01 36 DE AD B2 90 02 31 0D DF AB 90 01 31 07 AB B0 8F 01 2F FF 80 B1 B7 A8 14 B7 28 04 12 FF B1 ) SCREEN 6. 7. 12. 10. 13. -1. 0. UPDATE-VISIBILITY-LIST-2 SHOW-SCREEN-LINE ) ) #Y(#:TOP-LEVEL-FORM-40 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL *SCREENS*) *SCREENS* ) #Y(#:TOP-LEVEL-FORM-41 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SET-CURSOR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-CURSOR #81Y(00 00 00 00 02 00 01 00 00 09 3B 01 14 3A 02 06 D8 AF D9 80 32 02 D8 AF DA 71 32 AA 71 4A DB B0 96 02 72 01 34 81 01 33 05 DB AF AD B2 72 01 01 71 4A 72 01 34 81 01 33 04 D8 B1 DC B2 31 33 D8 B1 DD B1 31 33 92 02 06 D8 B1 D9 B1 31 33 02 19 07 ) SCREEN 4. 1. 0. 2. 3. ) ) #Y(#:TOP-LEVEL-FORM-42 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SCROLL-VERTICAL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCROLL-VERTICAL #188Y(00 00 00 00 02 00 01 00 00 09 3C 01 D8 AE D9 71 32 AA 71 4A D8 B0 DA 71 32 92 04 0C B0 D8 B2 DB 71 32 B1 72 02 35 2F 04 AA 72 00 36 B0 AD D9 AE 72 02 36 72 01 34 81 01 33 05 AA B0 72 02 35 D8 B2 DA AD 31 33 16 01 AF 23 05 2A AF 71 A1 DE 8F 01 30 25 D8 B1 DF 8E 32 1F 0E 08 1C 1B B0 0E 08 5A 22 15 AF 8D 95 16 6A 0A DD DD 2C 03 0B DD B0 72 00 36 1A 34 A1 19 07 B0 2E 09 19 07 6A 0A DD DD 2C 03 0B DD 1A 06 6A 0A 2E 0C 84 00 AA B1 90 01 32 74 16 01 B0 D8 B2 E5 71 32 B1 72 01 36 2F 09 19 07 6A 0A 2E 0E 84 01 AB AB 90 01 32 74 16 02 B0 DD B1 72 00 36 2C 03 09 19 07 ) SCREEN 1. 8. 2. SET-CURSOR 0. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW* SCREEN:SET-WINDOW-CURSOR-POSITION SCREEN:DELETE-WINDOW-LINE 6. SCREEN:INSERT-WINDOW-LINE ) ) #Y(#:TOP-LEVEL-FORM-43 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SCROLL-HORIZONTAL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCROLL-HORIZONTAL #53Y(00 00 00 00 02 00 00 00 00 03 D8 AD D9 71 32 AA AD 72 02 35 8E 96 05 AA 81 00 36 02 AC 23 02 12 AA AD 72 02 35 D8 AF D9 AD 31 33 16 01 AD 2E 03 19 04 9E 19 04 ) SCREEN 9. 0. DISPLAY-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-44 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SET-CURSOR-VISIBLE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-CURSOR-VISIBLE #305Y(00 00 00 00 01 00 01 00 00 08 3C 01 D8 AD D9 71 32 D8 AE DA 71 32 D8 AF DB 71 32 D8 B0 DC 71 32 D8 B1 DD 71 32 D8 B2 DE 71 32 AC 23 07 33 AC 31 99 14 AF E0 AF AE 72 03 35 90 02 31 80 71 AF AE 8F 01 2F 26 AF AE AD 72 02 35 90 01 32 80 A0 B2 B0 E1 B0 91 0B 21 A0 14 32 03 36 14 2F 0A 1A 80 8E CA 1A 4D AE E1 31 D4 1A 07 B2 B0 AF 91 0A 74 CA 14 32 02 36 1A 64 AF E1 31 D4 1A 5A AD E1 31 D4 1A 1A E4 AE 32 02 35 1A 13 B2 AF AE 91 0A 6D AD E3 8F 01 2F 67 B1 B0 8F 01 31 67 D0 14 72 02 36 2F 0E 1A 80 49 CA 1A 28 AB E1 31 D4 1A 1E AD B0 E1 B0 AF 72 03 35 8F 02 31 4F AE 96 01 8F 01 2F 64 AE 91 08 63 AB E3 8F 01 2F 5D D0 14 32 01 36 14 DF B1 AE E1 71 D4 72 01 36 72 01 33 D8 B5 DC AE 31 33 D8 B5 DB AD 31 33 B4 2E 0F 16 02 16 06 0E 10 1C 39 AC 0E 10 5A 22 33 6A 11 D8 AE D9 71 32 D8 AF DB 71 32 72 01 36 D8 AF EA 71 32 72 02 35 D8 AF DA 71 32 D8 B0 DC 71 32 72 01 36 D8 B0 EB 71 32 72 02 35 2C 03 14 6A 11 2E 15 02 19 03 ) SCREEN 2. 3. 8. 9. 6. 7. 0. -2. -1. SCROLL-VERTICAL 40. -20. 20. SCROLL-HORIZONTAL DISPLAY-SCREEN *SCREENS* *WINDOW* 13. 12. SCREEN:SET-WINDOW-CURSOR-POSITION SCREEN:WINDOW-CURSOR-ON ) ) #Y(#:TOP-LEVEL-FORM-45 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) REFRESH-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(REFRESH-LINE #40Y(00 00 00 00 03 00 00 00 00 04 AD AD D8 B0 D9 71 32 72 01 36 AD D8 B1 DA 71 32 72 01 36 D8 B1 DB 71 32 2C 04 04 02 19 04 ) SCREEN 8. 9. 7. SHOW-SCREEN-LINE-V ) ) #Y(#:TOP-LEVEL-FORM-46 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) REFRESH-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(REFRESH-SCREEN #263Y(00 00 00 00 03 00 01 00 00 0A 3A 01 02 C3 F7 D9 AF DA 71 32 D9 B0 DB 71 32 AB AB 72 02 35 B0 8F 01 31 22 AE AC 8F 01 31 1F AD 71 A1 DC 8F 01 30 11 D9 B1 DD 8E 32 0B 0E 06 1C 07 B0 0E 06 5A 21 80 8B B0 2E 07 02 19 07 AB AE 72 02 35 D9 B2 DA AD 31 33 16 01 1A 6E 6A 08 AB D8 2C 03 09 D8 AF 72 00 36 1A 06 6A 08 2E 0A 84 01 AB AB 90 01 32 74 16 03 1A 80 6E AE AC AF 72 01 36 81 01 33 04 14 AE 72 02 35 AC 72 01 36 AA AF 72 01 36 AC 8F 01 2F 44 16 01 1A 80 4C B1 9C 1A 28 AA AF 72 02 35 AC 8F 01 32 72 6A 08 AB D8 2C 03 09 D8 1A 06 6A 08 2E 0B 84 00 AA B0 90 01 32 74 16 01 B1 AC B0 32 01 36 14 AD 2C 03 07 16 01 1A 17 AD 8D 96 FF A4 AD 8E 95 0E AE AC 72 01 36 AA AC 8F 01 2F FF BA 16 01 D8 B0 AD 72 01 36 72 01 33 AF AD 72 01 36 AC 72 01 34 AB AB 90 01 2F 06 B2 AC AC 2C 03 07 16 04 02 19 05 ) 0. SCREEN 8. 6. 10. 11. *SCREENS* DISPLAY-SCREEN *WINDOW* SCREEN:SET-WINDOW-CURSOR-POSITION SCREEN:INSERT-WINDOW-LINE SCREEN:DELETE-WINDOW-LINE ) ) #Y(#:TOP-LEVEL-FORM-47 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) HIDE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(HIDE-SCREEN #121Y(00 00 00 00 01 00 00 00 00 02 D8 D9 AD DA 71 32 72 02 35 D9 AD DB 71 32 D9 AE DC 71 32 D9 AF DD 71 32 AF 6A 06 DF 37 02 70 B8 92 00 80 46 E0 96 04 1A 2F AD AC 72 01 01 62 1A 17 86 01 00 94 04 AD B2 93 03 72 02 35 B3 94 04 72 02 35 2C 04 09 82 01 AB 8C 97 65 16 02 AD AC 62 32 01 02 84 01 84 00 AB B1 8E 04 4C 16 02 B0 6A 06 37 07 CA F8 31 54 0F 06 0E 06 5A 19 07 ) 2. SCREEN 6. 13. 12. 10. *SCREENS* #.#'EQ 0. SHOW-NEWLY-VISIBLE-LINE-PARTS ) ) #Y(#:TOP-LEVEL-FORM-48 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ACTIVATE-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ACTIVATE-SCREEN #224Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 D8 AE DB 71 32 D8 AF DC 71 32 AB AE 72 02 35 AB AE 72 02 35 D8 B2 DD 71 32 DE B0 0E 07 1C 07 B4 0E 07 5A 21 80 A1 D8 B5 E0 8D 32 0C 85 06 84 04 85 05 84 03 85 01 84 00 6A 07 92 00 13 93 00 A7 21 0E 93 00 B2 B1 B3 B2 2C 05 09 82 00 91 00 6D 16 01 B4 B5 6A 07 37 07 CD F8 31 54 5C 0F 07 D8 B5 E0 8D 32 09 DE E4 B4 72 02 35 1A 80 51 DE 1A 24 AC 9D 79 7A 01 AE 95 02 72 01 01 AB 8D 05 11 95 01 AF AB AD 32 01 02 16 01 B6 AC AF AF 2C 04 0B 16 01 84 00 AA B4 90 01 32 56 16 01 1A 28 AD 9E 79 7A 01 AF AD 72 01 01 AB 8D 05 0E AF AD AC 32 01 02 B7 96 03 B0 B0 2C 04 0B 16 01 84 01 AB AB 90 01 32 5A 16 02 16 09 02 19 02 ) SCREEN 6. 7. 13. 12. 10. 0. *SCREENS* 11. UPDATE-VISIBILITY #.#'EQ SHOW-SCREEN-LINE 2. ) ) #Y(#:TOP-LEVEL-FORM-49 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UPDATE-MARKS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UPDATE-MARKS #164Y(00 00 00 00 05 00 00 00 00 06 00 2A 04 7E 05 00 00 7E 04 00 01 7E 03 00 02 7E 02 00 03 AA 6C 00 01 D9 B2 DA 71 32 D9 B3 DB 71 32 AB 67 04 00 8E 04 07 AA 67 04 01 8D 04 22 AB AB 9F 33 41 02 D9 B6 DA AE 31 33 D9 B6 DB AD 31 33 16 02 16 02 D9 B2 DD 71 32 DE AB 71 4A 1A 80 40 67 03 02 D9 B5 DA AD 31 33 16 01 67 03 03 D9 B5 DB AD 31 33 16 01 67 03 03 D9 B5 DC AD 31 33 16 01 1A 4F AC AC 72 01 01 92 00 11 77 94 01 A1 33 41 02 AC AC 30 AD AC AB 30 AF 16 02 16 01 84 01 AB AB 90 01 32 5D 00 19 0B ) #Y(UPDATE-MARKS-NEW-LIN-COL #204Y(00 00 00 00 02 00 00 00 00 03 68 00 01 68 00 03 8D 04 37 68 00 01 68 00 03 8F 01 30 38 AC 68 00 01 8D 04 80 81 68 00 01 AD 90 01 2F 80 96 AC 68 00 03 68 00 01 72 01 36 32 02 35 1A 80 87 68 00 02 AC 90 01 2F 16 9D 1A 80 67 AC 68 00 01 8D 04 6D 9D 1A 80 70 AC 68 00 03 8E 04 2C AC AC 68 00 04 32 01 34 1A 80 60 68 00 03 AC 68 00 04 68 00 02 72 01 36 72 02 35 68 00 04 32 01 33 1A 80 47 68 00 03 07 00 04 1A 3F AC 68 00 01 8D 04 58 68 00 03 AD 68 00 01 8F 02 2F 66 68 00 01 AD 8F 01 2F FF 8B 9D 1A 1F AB 68 00 02 90 01 30 13 07 00 03 14 AC 68 00 04 68 00 02 72 01 36 32 02 35 1A 06 9D 1A 01 9D 14 9D 14 3F 02 19 03 ) NIL ) SCREEN 2. 3. 4. 5. 0. ) ) #Y(#:TOP-LEVEL-FORM-50 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SCROLL-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCROLL-SCREEN #19Y(00 00 00 00 02 00 00 00 00 03 AC AC 63 2C 03 00 02 19 03) SCROLL-VERTICAL ) ) #Y(#:TOP-LEVEL-FORM-51 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ACTIVATE-SCREENS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ACTIVATE-SCREENS #32Y(00 00 00 00 01 00 00 00 00 02 98 00 AC 63 37 03 8D 63 01 C4 14 98 02 AB AE 70 A0 32 00 19 19 03 ) SCREEN-FULL? 0. ACTIVATE-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-52 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DEFUN-DOC SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(DEFUN-DOC #67Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 2C 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 A0 5B 5B 5B 78 DA DB AF AF 9F 7B 03 DC DD DE B2 7A 02 CA 7B 02 AF 7A 03 DE B1 7A 02 60 04 19 07 AC 2E 01 19 03 ) 4. SYSTEM::MACRO-CALL-ERROR PROGN DEFUN SETF DOCUMENTATION QUOTE ('FUNCTION) ) ) #Y(#:TOP-LEVEL-FORM-53 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL *UNDO*) *UNDO* ) #Y(#:TOP-LEVEL-FORM-54 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UNDO1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO1 #13Y(00 00 00 00 01 00 00 00 00 02 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-55 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UNDO2 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO2 #13Y(00 00 00 00 01 00 00 00 00 02 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-56 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UNDO3 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO3 #13Y(00 00 00 00 01 00 00 00 00 02 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-57-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-UP SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-UP #32Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA 31 95 1E 0A AC 2E 02 AC 96 01 2F 03 19 03 19 03 ) SCREEN 2. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-57-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-UP FUNCTION "cursor up" "Cursor nach oben" "curseur vers le haut" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-57-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-UP ) #Y(#:TOP-LEVEL-FORM-58-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-DOWN #42Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA D8 AE DA 71 32 71 4A 71 9A 32 01 2F 1E 0A AC 2E 03 AC 95 01 2F 04 19 03 19 03 ) SCREEN 2. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-58-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-DOWN FUNCTION "cursor down" "Cursor nach unten" "curseur vers le bas" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-58-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-DOWN ) #Y(#:TOP-LEVEL-FORM-59-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-LEFT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-LEFT #60Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 AA 8D 95 1D AB 8E 95 1D 85 01 D8 AE DB 71 32 AC 72 01 01 80 4A 00 AD 2E 04 AD AC AC 2C 03 05 19 04 85 00 1A 71 00 19 04 ) SCREEN 2. 3. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-59-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-LEFT FUNCTION "cursor left" "Cursor nach links" "curseur α gauche" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-59-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-LEFT ) #Y(#:TOP-LEVEL-FORM-60-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-RIGHT #69Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 D8 AE DB 71 32 AA AD AD 72 01 01 71 4A 8F 01 2F 19 AB AD 71 4A 71 9A 90 01 2F 13 84 01 C7 F6 AE 2E 05 AE AC AC 2C 03 06 19 05 84 00 1A 71 00 19 05 ) SCREEN 1. 2. 3. 0. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-60-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-RIGHT FUNCTION "cursor right" "Cursor nach rechts" "curseur α droite" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-60-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-RIGHT ) #Y(#:TOP-LEVEL-FORM-61-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-TO-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-START-OF-LINE #26Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AC 2E 02 AC AB DB 2C 03 04 19 03 ) SCREEN 2. UNDO3 0. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-61-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-TO-START-OF-LINE FUNCTION "cursor to start of line" "Cursor an den Zeilenanfang" "curseur au dΘbut de la ligne" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-61-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-TO-START-OF-LINE ) #Y(#:TOP-LEVEL-FORM-62-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-TO-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-END-OF-LINE #36Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AC 2E 02 AC AB D8 AF DB 71 32 AD 72 01 01 71 4A 2C 03 04 19 03 ) SCREEN 2. UNDO3 1. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-62-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-TO-END-OF-LINE FUNCTION "cursor to end of line" "Cursor ans Zeilenende" "curseur α la fin de la ligne" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-62-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-TO-END-OF-LINE ) #Y(#:TOP-LEVEL-FORM-63-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-TO-START-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-START-OF-TEXT #21Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 AB D9 D9 2C 03 02 19 02) UNDO3 0. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-63-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-TO-START-OF-TEXT FUNCTION "cursor to start of text" "Cursor an den Textanfang" "curseur au dΘbut du texte" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-63-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-TO-START-OF-TEXT ) #Y(#:TOP-LEVEL-FORM-64-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-TO-END-OF-TEXT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-END-OF-TEXT #37Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 D9 AC DA 71 32 AA 71 4A 71 9A AD AB AD AD 72 01 01 71 4A 2C 03 03 19 04 ) UNDO3 SCREEN 1. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-64-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-TO-END-OF-TEXT FUNCTION "cursor to end of text" "Cursor ans Textende" "curseur α la fin du texte" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-64-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-TO-END-OF-TEXT ) #Y(#:TOP-LEVEL-FORM-65-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) PAGE-UP SYSTEM::REMOVE-OLD-DEFINITIONS #Y(PAGE-UP #27Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 AB D9 DA AE DB 71 32 72 01 36 2F 04 19 02 ) UNDO3 1. SCREEN 6. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-65-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) PAGE-UP FUNCTION "page up" "Seite nach oben" "une page plus haut" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-65-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) PAGE-UP) #Y(#:TOP-LEVEL-FORM-66-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) PAGE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(PAGE-DOWN #25Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 AB D9 AD DA 71 32 71 9A 2F 03 19 02 ) UNDO3 SCREEN 6. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-66-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) PAGE-DOWN FUNCTION "page down" "Seite nach unten" "une page plus bas" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-66-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) PAGE-DOWN ) #Y(#:TOP-LEVEL-FORM-67-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) LINE-UP SYSTEM::REMOVE-OLD-DEFINITIONS #Y(LINE-UP #19Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 AB D9 2F 02 19 02) UNDO3 -1. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-67-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) LINE-UP FUNCTION "line up" "Zeile nach oben" "une ligne plus haut" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-67-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) LINE-UP) #Y(#:TOP-LEVEL-FORM-68-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) LINE-DOWN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(LINE-DOWN #19Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 AB D9 2F 02 19 02) UNDO3 1. SCROLL-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-68-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) LINE-DOWN FUNCTION "line down" "Zeile nach unten" "une ligne plus bas" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-68-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) LINE-DOWN ) #Y(#:TOP-LEVEL-FORM-69 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SET-MARK-FN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-MARK-FN #33Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 D8 AD 32 02 35 0B 00 00 9B 2A 01 AA 2B 01 01 0B 00 00 19 04 ) 2. #Y(SET-MARK-FN-SET-MARK #114Y(00 00 00 00 01 00 02 00 00 0D 29 2A 01 7E 04 00 00 3A 03 0B 67 00 00 D9 AB DA 31 32 16 01 F9 3A 02 0B 67 00 00 D9 AB DB 31 32 16 01 F8 67 00 00 D9 AB DC 80 32 00 68 01 01 72 01 01 91 00 2D 9C 2A 02 9C 5A 0B 00 00 9C 5B 0B 00 01 AA 2B 06 01 16 01 F6 2E 07 67 00 00 D9 AB DC 80 32 00 68 01 01 AF A0 79 AC AC AC 32 01 02 19 08 AB 2B 05 01 1A 60 ) NIL SCREEN 2. 3. 5. #Y(SET-MARK-FN-SET-MARK-1 #30Y(00 00 00 00 00 00 00 00 00 01 68 00 01 D9 AB DA 80 32 00 68 02 01 AB AB 62 32 01 02 19 03 ) NIL SCREEN 5. ) #Y(SET-MARK-FN-SET-MARK-2 #25Y(00 00 00 00 00 00 00 00 00 01 68 01 01 68 00 01 68 00 02 07 02 01 33 19 01 ) NIL ) UNDO2 ) ) ) #Y(#:TOP-LEVEL-FORM-70 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SET-MARK-DOC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-MARK-DOC #23Y(00 00 00 00 01 00 00 00 00 02 62 D8 D9 DA 6D 03 03 AD 2C 03 04 19 02 ) "set mark ~D" "Marke ~D setzen" "placer la marque ~D" SYSTEM::LANGUAGE FORMAT ) ) #Y(#:TOP-LEVEL-FORM-71 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CURSOR-TO-MARK-FN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-MARK-FN #27Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 D8 AD 32 02 35 0B 00 00 AA 2B 01 01 19 03 ) 2. #Y(CURSOR-TO-MARK-FN-1 #39Y(00 00 00 00 01 00 00 00 00 02 AB 2E 01 DA AC DB 71 32 68 00 01 72 01 01 9B 1E 0A AC 93 01 94 02 2C 03 04 19 03 19 03 ) NIL UNDO3 SCREEN 5. SET-CURSOR ) ) ) #Y(#:TOP-LEVEL-FORM-72 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CURSOR-TO-MARK-DOC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-MARK-DOC #23Y(00 00 00 00 01 00 00 00 00 02 62 D8 D9 DA 6D 03 03 AD 2C 03 04 19 02 ) "cursor to mark ~D" "Cursor zu Marke ~D" "curseur α la marque ~D" SYSTEM::LANGUAGE FORMAT ) ) #Y(#:TOP-LEVEL-FORM-73 #35Y(00 00 00 00 00 00 00 00 00 01 D8 70 4F D9 8C 62 0B AA D9 70 52 8D 04 04 D9 DA 2F 03 D9 AB 31 85 C4 19 02 ) #\Newline NEWLINE-AS-STRING (DEFCONSTANT NEWLINE-AS-STRING (STRING #\Newline)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-74 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) REGION-TO-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(REGION-TO-LINELIST #77Y(00 00 00 00 05 00 00 00 00 06 D8 B0 D9 71 32 62 B0 AF 8D 04 10 AB B1 72 01 01 B0 37 01 71 48 83 00 95 06 1A 13 AB B1 72 01 01 A1 1A 18 AC AB 72 01 01 71 49 83 01 84 00 AA B0 8E 04 70 16 01 AB AF 72 01 01 C5 14 AF 71 48 9C 5C 19 08 ) SCREEN 1. 0. ) ) #Y(#:TOP-LEVEL-FORM-75 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STRING-TO-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STRING-TO-LINELIST #89Y(00 00 00 00 01 00 00 00 00 02 D8 AC 37 06 71 62 92 00 0D AA 37 05 C4 F9 B2 DA 70 1C 7A 01 1A 16 AC 60 01 19 03 AC AB 72 01 36 37 05 C4 F9 B4 B1 70 1C 83 01 16 01 95 01 D8 AF 37 06 A3 FA 80 62 02 1B 62 AE 71 4A AB 72 01 36 37 05 C4 F9 B4 B1 70 1C 83 01 16 01 15 19 03 ) #\Newline STRING-CHAR 0. ) ) #Y(#:TOP-LEVEL-FORM-76-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) DELETE-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DELETE-CHAR #119Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 14 D8 AB D9 80 32 00 67 01 00 D8 AB DA 80 32 00 67 02 00 D8 AB DB 80 32 00 AC AC 72 01 01 AA 71 4A AC AB 8D 04 3D A0 2A 01 AC AE 32 01 01 0B 00 00 AA 2B 04 01 F6 2E 05 AB AC AE 37 03 B2 80 99 01 31 50 AB 70 17 71 9A AC AB 30 18 16 01 67 05 00 AE 95 04 B0 B0 2C 05 06 67 05 00 AE AE 2C 03 07 19 08 00 19 08 ) SCREEN 1. 2. 3. #Y(DELETE-CHAR-1 #25Y(00 00 00 00 00 00 00 00 00 01 68 01 01 68 00 01 2F 01 68 01 01 2E 02 19 01 ) NIL INSERT-CHAR CURSOR-LEFT ) UNDO2 UPDATE-MARKS REFRESH-LINE ) ) #Y(#:TOP-LEVEL-FORM-76-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) DELETE-CHAR FUNCTION "delete character at cursor" "Zeichen unter dem Cursor l÷schen" "effacer le caractΦre sous le curseur" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-76-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) DELETE-CHAR ) #Y(#:TOP-LEVEL-FORM-77-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) COMBINE-LINES SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMBINE-LINES #162Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 9B 2A 02 67 01 00 D8 AB D9 80 32 00 67 02 00 D8 AB DA 31 32 16 01 0B 01 00 14 71 99 AB 67 03 00 72 01 01 AA 31 4A 0B 03 01 AB AD 71 4A 8D 04 80 5D 9E 2A 01 67 05 00 D8 AB DB 31 32 16 01 0B 00 00 AA 2B 04 01 F6 2E 05 AC AC 72 01 01 AB 67 05 01 AC 71 4A 72 02 35 2F 06 AB AB 67 06 01 37 03 31 50 16 01 AC AD AD 37 03 B1 80 99 01 31 50 AC D9 2F 07 67 04 00 AC E0 67 06 00 67 07 01 2C 05 09 67 04 00 67 04 00 AD D9 2C 04 0A 19 07 00 19 07 ) SCREEN 1. 2. 3. #Y(COMBINE-LINES-1 #41Y(00 00 00 00 00 00 00 00 00 01 68 02 01 68 01 01 68 01 02 2C 03 01 68 02 01 2E 02 68 02 01 68 01 01 68 00 01 2C 03 01 19 01 ) NIL SET-CURSOR INSERT-LINE ) UNDO2 RESIZE-ARRAY SHRINK-ARRAY 0. UPDATE-MARKS REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-77-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) COMBINE-LINES FUNCTION "combine two lines" "Cursorzeile mit der nΣchsten vereinigen" "joindre la ligne du curseur α la suivante" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-77-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) COMBINE-LINES ) #Y(#:TOP-LEVEL-FORM-78-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) DELETE-CHAR-1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DELETE-CHAR-1 #22Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 1D 05 AB 2E 01 19 02 19 02) DELETE-CHAR COMBINE-LINES ) ) #Y(#:TOP-LEVEL-FORM-78-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) DELETE-CHAR-1 FUNCTION "delete character at cursor, across lines" "Zeichen unter dem Cursor l÷schen, zeilenⁿbergreifend" "effacer le caractΦre sous le curseur, α travers lignes" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-78-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) DELETE-CHAR-1 ) #Y(#:TOP-LEVEL-FORM-79-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) BACKSPACE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(BACKSPACE #31Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 31 95 1E 0A AB 2E 02 1E 05 AB 2E 03 19 02 19 02 ) SCREEN 3. CURSOR-LEFT DELETE-CHAR ) ) #Y(#:TOP-LEVEL-FORM-79-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) BACKSPACE FUNCTION "delete character before cursor" "Zeichen links vom Cursor l÷schen" "effacer le caractΦre avant le curseur" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-79-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) BACKSPACE ) #Y(#:TOP-LEVEL-FORM-80-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) BACKSPACE-1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(BACKSPACE-1 #22Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 1E 05 AB 2E 01 19 02 19 02) CURSOR-LEFT DELETE-CHAR-1 ) ) #Y(#:TOP-LEVEL-FORM-80-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) BACKSPACE-1 FUNCTION "delete character before cursor, across lines" "Zeichen links vom Cursor l÷schen, zeilenⁿbergreifend" "effacer le caractΦre avant le curseur, α travers lignes" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-80-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) BACKSPACE-1 ) #Y(#:TOP-LEVEL-FORM-81 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DELETE-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DELETE-REGION #241Y(00 00 00 00 05 00 00 00 00 06 00 2A 03 7E 06 00 00 7E 05 00 01 7E 04 00 02 67 00 00 D8 AB D9 80 32 00 67 01 00 2E 02 9C 2A 01 67 02 00 67 03 01 67 04 02 B2 B2 2C 05 03 0B 00 00 AA 2B 04 01 F6 2E 05 67 01 01 AF 8D 04 80 66 AA 67 02 01 72 01 01 AB B0 72 01 01 67 03 02 AB 71 4A B1 72 01 36 72 02 35 AC AB 2F 08 AC AC 67 06 02 37 03 A7 F7 31 50 AD AE 67 06 01 71 99 37 03 B7 80 99 01 31 50 AD B2 67 06 01 72 01 36 2F 09 67 04 00 B2 B2 67 07 01 67 08 02 2C 05 06 67 04 00 67 05 01 67 06 01 71 99 B4 67 08 01 72 01 36 2C 04 0A 19 0B AA 67 02 01 72 01 01 AA AB 67 04 02 37 03 A5 F7 31 50 AA 70 17 AF 67 04 02 72 01 36 72 01 36 AB AB 30 18 16 01 67 02 00 B0 B0 67 05 01 67 06 02 2C 05 06 67 02 00 67 03 01 67 04 02 2C 03 07 19 09 ) SCREEN 1. UNDO3 REGION-TO-LINELIST #Y(DELETE-REGION-1 #32Y(00 00 00 00 00 00 00 00 00 01 68 01 01 68 01 02 68 01 03 2C 03 01 68 01 01 68 00 01 2F 02 19 01 ) NIL SET-CURSOR INSERT-LINELIST ) UNDO2 UPDATE-MARKS REFRESH-LINE RESIZE-ARRAY SHRINK-ARRAY REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-82-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) DELETE-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DELETE-LINE #54Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 AA AC 71 4A 71 9A 8D 04 0C AD AB DB 95 03 C6 14 2C 05 04 19 04 AD AB DB AD AF AF 72 01 01 31 4A 1A 6D ) SCREEN 1. 2. 0. DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-82-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) DELETE-LINE FUNCTION "delete line" "Zeile l÷schen" "effacer la ligne" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-82-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) DELETE-LINE ) #Y(#:TOP-LEVEL-FORM-83-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CLEAR-START-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CLEAR-START-OF-LINE #30Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 AD AC DB AE AE 2C 05 04 19 04 ) SCREEN 2. 3. 0. DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-83-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CLEAR-START-OF-LINE FUNCTION "delete part of line left to the cursor" "Vom Zeilenanfang bis Cursorposition l÷schen" "effacer la partie de la ligne avant le curseur" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-83-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CLEAR-START-OF-LINE ) #Y(#:TOP-LEVEL-FORM-84-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CLEAR-END-OF-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CLEAR-END-OF-LINE #41Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 D8 AE DB 71 32 AE AC AC AE B0 B0 72 01 01 71 4A 2C 05 04 19 05 ) SCREEN 1. 2. 3. DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-84-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CLEAR-END-OF-LINE FUNCTION "delete up to end of line" "Bis zum Zeilenende l÷schen" "effacer la partie de la ligne α partir du curseur" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-84-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CLEAR-END-OF-LINE ) #Y(#:TOP-LEVEL-FORM-85 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INSERT-CHAR SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-CHAR #98Y(00 00 00 00 02 00 00 00 00 03 00 2A 01 7E 03 00 00 14 D8 AB D9 80 32 00 67 01 00 D8 AB DA 80 32 00 67 02 00 D8 AB DB 80 32 00 AC AC 72 01 01 AA 71 4A AF 6C 04 01 2E 05 AB 95 01 2F 06 AB AC 95 04 37 03 A3 F7 31 50 AB AD B3 32 01 02 67 05 00 AE AE B0 95 06 2C 05 07 67 05 00 AE AE 2C 03 08 19 09 ) SCREEN 1. 2. 3. #Y(INSERT-CHAR-1 #17Y(00 00 00 00 00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL BACKSPACE ) UNDO2 RESIZE-ARRAY UPDATE-MARKS REFRESH-LINE ) ) #Y(#:TOP-LEVEL-FORM-86-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) INSERT-LINE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-LINE #124Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 14 D8 AB D9 80 32 00 67 01 00 D8 AB DA 80 32 00 95 00 67 03 00 D8 AB DB 80 32 00 AD AD 72 01 01 AF 6C 04 01 2E 05 AA 71 4A AC 72 01 36 6E 06 AA AC 37 04 A3 F7 31 50 AB AD 30 18 AF B0 71 4A 71 99 2F 07 AF B0 95 05 37 03 A4 F7 31 50 AF AE AC 32 01 02 16 01 67 05 00 AE AD AF E0 2C 05 09 67 05 00 AE 95 04 E2 2C 04 0B 19 08 ) SCREEN 1. 2. 3. #Y(INSERT-LINE-1 #17Y(00 00 00 00 00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL BACKSPACE-1 ) UNDO2 GET-NEW-LINE RESIZE-ARRAY 0. UPDATE-MARKS -1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-86-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) INSERT-LINE FUNCTION "begin new line at cursor" "Zeilenumbruch einfⁿgen" "casser la ligne en deux" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-86-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) INSERT-LINE ) #Y(#:TOP-LEVEL-FORM-87 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INSERT-LINELIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-LINELIST #373Y(00 00 00 00 02 00 00 00 00 03 00 2A 01 7E 03 00 00 9B 2A 02 67 01 00 D8 AB D9 80 32 00 67 02 00 D8 AB DA 31 32 16 01 0B 01 00 67 02 00 D8 AB DB 31 32 16 01 0B 01 01 92 04 80 76 9F 5B 1C 80 74 9C 2A 01 AF 71 4A 71 9A 67 03 00 AB 32 02 35 0B 01 00 AC AD 71 4A AC 72 02 35 2F 04 AC AD 67 03 00 71 99 37 03 67 09 00 80 99 01 31 50 9C 2A 01 AD 67 05 00 72 01 01 67 03 00 93 09 82 0A AA 31 4A 0B 03 00 14 AD 71 4A 67 09 01 72 01 36 72 02 35 6E 09 AA AC 37 04 31 50 AA AE 67 06 00 37 03 06 0E 01 F7 31 50 B1 AD AC 32 01 02 16 01 1A 80 7B 02 19 06 9C 2A 01 AB 67 03 00 72 01 01 93 06 AA 71 4A 67 05 01 AB 32 02 35 0B 03 00 AC AD 71 4A AC 72 02 35 2F 04 AC AD 67 05 00 37 03 06 0B 01 F7 31 50 AC AC 67 07 01 37 03 31 50 67 06 00 67 06 00 67 07 01 67 08 00 67 07 00 2C 05 05 AD 6C 06 01 2E 07 67 06 00 67 06 00 67 07 01 2C 03 08 19 0A 85 01 93 0A 82 0B AA 71 4A 6E 09 AA AC 37 04 31 50 B2 AE AC 32 01 02 16 02 A5 5B 1B 63 93 0A AD 67 09 01 AC 71 4A 72 02 35 2F 04 AD AB 67 0A 01 37 03 31 50 16 01 67 08 00 67 08 00 67 09 01 67 08 00 67 07 00 2C 05 05 AD 6C 0A 01 2E 07 67 08 00 67 08 00 67 07 00 71 99 B1 72 00 36 2C 04 0B 19 0C ) SCREEN 1. 2. 3. RESIZE-ARRAY UPDATE-MARKS #Y(INSERT-LINELIST-1 #30Y(00 00 00 00 00 00 00 00 00 01 68 02 01 68 01 01 68 01 02 68 01 01 68 00 01 2C 05 01 19 01 ) NIL DELETE-REGION ) UNDO2 REFRESH-LINE GET-NEW-LINE #Y(INSERT-LINELIST-2 #30Y(00 00 00 00 00 00 00 00 00 01 68 03 01 68 02 01 68 02 02 68 01 01 68 00 01 2C 05 01 19 01 ) NIL DELETE-REGION ) REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-88 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INSERT-STRING SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-STRING #18Y(00 00 00 00 02 00 00 00 00 03 AC AC 6E 00 2F 01 19 03) STRING-TO-LINELIST INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-89 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) WRITE-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(WRITE-REGION #79Y(00 00 00 00 06 00 00 00 00 00 D8 B1 D9 71 32 B0 AF 8D 04 0F AA B1 72 01 01 AD B1 37 01 30 8F 95 06 1A 15 AA B1 72 01 01 AD B1 1A 1B AB AB 72 01 01 AE 37 02 30 8F 84 00 AA B0 8E 04 6F 16 01 AA AF 72 01 01 AD 37 01 B0 30 8E 16 01 02 19 07 ) SCREEN 1. ) ) #Y(#:TOP-LEVEL-FORM-90 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INSERT-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSERT-STREAM #44Y(00 00 00 00 02 00 00 00 00 03 AC 62 AD 62 D8 37 01 30 7C 41 02 AB 24 00 09 D9 83 02 16 02 2F 02 19 03 AB 83 02 91 00 74 16 02 1A 60 ) "EOF" "" INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-91-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-TO-START-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-START-OF-BLOCK #46Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA DA 72 01 01 AB DB 72 01 01 9C 1E 10 9B 1E 0D AE 2E 04 AE 93 02 94 03 2C 03 05 19 05 19 05 ) SCREEN 5. 0. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-91-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-TO-START-OF-BLOCK FUNCTION "cursor to start of block" "Cursor zum Blockanfang" "curseur au dΘbut du bloc" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-91-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-TO-START-OF-BLOCK ) #Y(#:TOP-LEVEL-FORM-92-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) CURSOR-TO-END-OF-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-END-OF-BLOCK #46Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA DA 72 01 01 AB DB 72 01 01 9C 1E 10 9B 1E 0D AE 2E 04 AE 93 01 94 02 2C 03 05 19 05 19 05 ) SCREEN 5. 0. 1. UNDO3 SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-92-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) CURSOR-TO-END-OF-BLOCK FUNCTION "cursor to end of block" "Cursor zum Blockende" "curseur α la fin du bloc" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-92-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) CURSOR-TO-END-OF-BLOCK ) #Y(#:TOP-LEVEL-FORM-93-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) SET-BLOCK-START SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-BLOCK-START #141Y(00 00 00 00 01 00 02 00 00 0D 3A 02 06 D8 AE D9 80 32 02 3A 01 06 D8 AE DA 80 32 01 AD 2E 03 D8 AE DC 71 32 AA DD 72 01 01 AB DE 72 01 01 92 00 01 5A 14 92 01 01 5B 14 91 03 80 49 A2 14 92 03 12 AC B3 8F 01 30 2A AC B3 90 01 2D 06 AB B2 8F 01 32 1E D8 B4 DE 71 32 AA 71 4A 80 9A 03 AA AE 72 01 01 80 4A 02 AD 9E 79 B1 DE AC 32 01 02 16 02 B2 A3 79 B0 DD AC 32 01 02 16 01 B3 AB 95 04 2C 03 07 19 0A 77 B2 32 01 34 1A FF B0 ) SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-93-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) SET-BLOCK-START FUNCTION "set block start" "Blockanfang setzen" "placer le dΘbut du bloc" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-93-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) SET-BLOCK-START ) #Y(#:TOP-LEVEL-FORM-94-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) SET-BLOCK-END SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SET-BLOCK-END #123Y(00 00 00 00 01 00 02 00 00 0D 3A 02 06 D8 AE D9 80 32 02 3A 01 06 D8 AE DA 80 32 01 AD 2E 03 D8 AE DC 71 32 AA DD 72 01 01 AB DE 72 01 01 92 01 01 5A 14 92 02 01 5B 14 91 02 39 A2 14 92 04 12 AC B3 8F 01 2F 1A AC B3 90 01 2D 06 AB B2 8F 01 31 0E C8 F8 F7 14 9D 79 B0 DD AC 32 01 02 16 01 B2 A3 79 B0 DE AC 32 01 02 16 01 B3 AD 95 02 2C 03 07 19 0A 77 B2 32 01 33 1A 41 ) SCREEN 2. 3. UNDO-BLOCKMARKS 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-94-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) SET-BLOCK-END FUNCTION "set block end" "Blockende setzen" "placer la fin du bloc" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-94-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) SET-BLOCK-END ) #Y(#:TOP-LEVEL-FORM-95-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) HIDE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(HIDE-BLOCK #60Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 D9 AC DA 71 32 AA DB 72 01 01 AB DC 72 01 01 AC DB 62 32 01 02 AC DC 62 32 01 02 9C 1E 0F 9B 1E 0C AE 93 02 93 02 71 99 2C 03 05 19 05 19 05 ) UNDO-BLOCKMARKS SCREEN 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-95-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) HIDE-BLOCK FUNCTION "remove block marks" "Block demarkieren" "enlever les marques du bloc" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-95-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) HIDE-BLOCK ) #Y(#:TOP-LEVEL-FORM-96 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) UNDO-BLOCKMARKS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(UNDO-BLOCKMARKS #93Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 14 D8 AB D9 80 32 00 AA DA 72 01 01 AB DB 72 01 01 91 00 1F 92 01 14 9E 2A 02 9D 5A 0B 00 00 9D 5B 0B 00 01 AA 2B 06 01 F6 2E 05 AD 6C 07 01 2E 05 19 06 9E 2A 02 9C 5A 0B 00 00 9C 5B 0B 00 01 AA 2B 04 01 F6 2E 05 92 01 61 1A 4B ) SCREEN 5. 0. 1. #Y(UNDO-BLOCKMARKS-1 #24Y(00 00 00 00 00 00 00 00 00 01 68 01 01 68 00 01 68 00 02 2C 03 01 19 01 ) NIL SET-BLOCK-END ) UNDO2 #Y(UNDO-BLOCKMARKS-2 #24Y(00 00 00 00 00 00 00 00 00 01 68 01 01 68 00 01 68 00 02 2C 03 01 19 01 ) NIL SET-BLOCK-START ) #Y(UNDO-BLOCKMARKS-3 #17Y(00 00 00 00 00 00 00 00 00 01 68 00 01 2E 01 19 01) NIL HIDE-BLOCK ) ) ) #Y(#:TOP-LEVEL-FORM-97 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MARK-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MARK-REGION #82Y(00 00 00 00 05 00 00 00 00 06 9F 1E 80 42 D8 B0 D9 71 32 AA DA 72 01 01 AB DB 72 01 01 B1 A2 79 AD DA AC 32 01 02 16 01 AF A0 79 AD DB AC 32 01 02 16 01 92 01 11 92 00 0E B1 93 02 81 01 34 07 AF 93 01 81 01 33 05 B2 B2 95 07 2C 03 04 19 09 19 06 ) SCREEN 5. 0. 1. REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-98 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GET-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-BLOCK #49Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA DA 72 01 01 AB DB 72 01 01 92 01 03 91 00 08 01 03 00 14 3F 04 19 05 93 01 94 02 93 02 9E 5B 1A 71 ) SCREEN 5. 0. 1. ) ) #Y(#:TOP-LEVEL-FORM-99-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) DELETE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DELETE-BLOCK #63Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA DA 72 01 01 AB DB 72 01 01 92 01 20 92 00 1D AE 2E 04 AC DA 62 32 01 02 AC DB 62 32 01 02 AE 93 02 94 03 93 03 94 04 2C 05 05 19 05 00 19 05 ) SCREEN 5. 0. 1. UNDO-BLOCKMARKS DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-99-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) DELETE-BLOCK FUNCTION "delete block" "Block l÷schen" "effacer le bloc" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-99-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) DELETE-BLOCK ) #Y(#:TOP-LEVEL-FORM-100-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) MOVE-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MOVE-BLOCK #112Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA DA 72 01 01 AB DB 72 01 01 92 01 80 50 92 00 80 4C 93 01 94 02 93 02 94 03 B2 AE AE AE AE 6D 05 04 B3 AF AF AF AF 2C 05 05 D8 B4 DE 71 32 D8 B5 DF 71 32 B5 AD 2F 08 B2 AC 30 AD B2 AB 30 AF B1 D8 B7 DE 71 32 30 AD B1 D8 B7 DF 71 32 30 AF B5 AC D8 B8 DE 71 32 71 99 2C 03 09 19 0C 00 19 05 ) SCREEN 5. 0. 1. REGION-TO-LINELIST DELETE-REGION 2. 3. INSERT-LINELIST REFRESH-SCREEN ) ) #Y(#:TOP-LEVEL-FORM-100-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) MOVE-BLOCK FUNCTION "move block to cursor position" "Block an Cursorposition verschieben" "transporter le bloc α la position du curseur" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-100-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) MOVE-BLOCK ) #Y(#:TOP-LEVEL-FORM-101-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) COPY-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COPY-BLOCK #33Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 41 04 9E 1E 0D AF B0 AF AF AF AF 6D 05 01 2F 02 19 06 19 06 ) GET-BLOCK REGION-TO-LINELIST INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-101-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) COPY-BLOCK FUNCTION "copy block to cursor position" "Block an Cursorposition kopieren" "placer une copie du bloc α la position du curseur" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-101-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) COPY-BLOCK ) #Y(#:TOP-LEVEL-FORM-102 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL *CUT-AND-PASTE-BUFFER*) *CUT-AND-PASTE-BUFFER* ) #Y(#:TOP-LEVEL-FORM-103-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) COPY-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COPY-BLOCK-BUFFER #33Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 41 04 9E 1E 0D AF AE AE AE AE 2C 05 01 0F 02 02 19 06 19 06 ) GET-BLOCK REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER* ) ) #Y(#:TOP-LEVEL-FORM-103-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) COPY-BLOCK-BUFFER FUNCTION "copy block into cut-and-paste buffer" "Block in Cut-and-Paste-Buffer ⁿbertragen" "garder une copie du bloc en mΘmoire" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-103-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) COPY-BLOCK-BUFFER ) #Y(#:TOP-LEVEL-FORM-104-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) DELETE-BLOCK-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DELETE-BLOCK-BUFFER #73Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 AA DA 72 01 01 AB DB 72 01 01 9C 1E 2B 9B 1E 28 AC DA 62 32 01 02 AC DB 62 32 01 02 93 01 94 02 93 02 94 03 B2 AE AE AE AE 2C 05 04 0F 05 B2 AE AE AE AE 2C 05 06 19 09 19 05 ) SCREEN 5. 0. 1. REGION-TO-LINELIST *CUT-AND-PASTE-BUFFER* DELETE-REGION ) ) #Y(#:TOP-LEVEL-FORM-104-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) DELETE-BLOCK-BUFFER FUNCTION "yank block into cut-and-paste buffer" "Block l÷schen und in Cut-and-Paste-Buffer ⁿbertragen" "effacer le bloc, mais le garder en mΘmoire" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-104-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) DELETE-BLOCK-BUFFER ) #Y(#:TOP-LEVEL-FORM-105-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) PASTE-BUFFER SYSTEM::REMOVE-OLD-DEFINITIONS #Y(PASTE-BUFFER #17Y(00 00 00 00 01 00 00 00 00 02 AB 6A 00 2F 01 19 02) *CUT-AND-PASTE-BUFFER* INSERT-LINELIST ) ) #Y(#:TOP-LEVEL-FORM-105-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) PASTE-BUFFER FUNCTION "insert cut-and-paste buffer contents" "Inhalt des Cut-and-Paste-Buffer einfⁿgen" "ajouter le bloc en mΘmoire dans le texte" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-105-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) PASTE-BUFFER ) #Y(#:TOP-LEVEL-FORM-106 #32Y(00 00 00 00 00 00 00 00 00 01 D8 8C 62 0B D9 D8 70 52 89 02 04 D8 DB 2F 04 D8 D9 31 85 C3 19 01 ) ERRORVAL #1="ERROR" SYSTEM::LOOSE-CONSTANT-EQL (DEFCONSTANT ERRORVAL #1#) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-107 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) WITH-IGNORED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-IGNORED-ERRORS #44Y(00 00 00 00 01 00 01 00 00 08 94 02 37 01 71 92 D8 AB D9 DA DB DC DD DE DF B3 CB 7B 02 7A 04 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 05 ) BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (&REST ARGS) (DECLARE (IGNORE ARGS)) RETURN-FROM (ERRORVAL) ) ) #Y(#:TOP-LEVEL-FORM-108 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) WITH-TRAPPED-ERRORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-TRAPPED-ERRORS #46Y(00 00 00 00 01 00 01 00 00 08 94 02 37 01 71 92 D8 AB D9 DA DB DC DD DE DF E0 E1 B5 CD 7B 02 7A 06 7A 02 7A 02 7A 01 A0 7B 02 60 03 19 05 ) BLOCK LET *ERROR-HANDLER* FUNCTION LAMBDA (CONTINUE ERRSTR &REST ARGS) (DECLARE (IGNORE CONTINUE)) (FRESH-LINE *ERROR-OUTPUT*) (APPLY #'FORMAT *ERROR-OUTPUT* ERRSTR ARGS) RETURN-FROM (ERRORVAL) ) ) #Y(#:TOP-LEVEL-FORM-109 #38Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 8C 62 0B AA D9 70 52 8D 04 04 D9 DA 2F 03 D9 AB 31 85 C4 19 02 ) #.#'EQL FULL-TABLE (DEFCONSTANT FULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-110 #38Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 8C 62 0B AA D9 70 52 8D 04 04 D9 DA 2F 03 D9 AB 31 85 C4 19 02 ) #.#'EQL HALF-TABLE (DEFCONSTANT HALF-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-111 #38Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 8C 62 0B AA D9 70 52 8D 04 04 D9 DA 2F 03 D9 AB 31 85 C4 19 02 ) #.#'EQL LINE-EDIT-TABLE (DEFCONSTANT LINE-EDIT-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-112 #38Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 8C 62 0B AA D9 70 52 8D 04 04 D9 DA 2F 03 D9 AB 31 85 C4 19 02 ) #.#'EQL NULL-TABLE (DEFCONSTANT NULL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-113 #19Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 AB DA 30 69 19 02) NULL-TABLE #\Escape (:LEAVE) ) #Y(#:TOP-LEVEL-FORM-114 #38Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 8C 62 0B AA D9 70 52 8D 04 04 D9 DA 2F 03 D9 AB 31 85 C4 19 02 ) #.#'EQL CONTROL-TABLE (DEFCONSTANT CONTROL-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-115 #38Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 70 67 D9 8C 62 0B AA D9 70 52 8D 04 04 D9 DA 2F 03 D9 AB 31 85 C4 19 02 ) #.#'EQL DOCSTRINGS-TABLE (DEFCONSTANT DOCSTRINGS-TABLE (MAKE-HASH-TABLE :TEST #'EQL)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-116 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) BIND-KEY SYSTEM::REMOVE-OLD-DEFINITIONS #Y(BIND-KEY #132Y(00 00 00 00 03 00 01 00 00 0A 3C 01 AE 8D 0E 04 AE 60 01 FA AC 8E 09 0E 92 02 0B 91 01 05 AC D8 2F 01 F7 9D 5D F8 9E 25 02 28 0E 03 1A 1F 6A 04 6A 05 6A 06 60 03 1A 1B 6A 04 0E 06 1A 04 6A 04 0E 05 14 60 02 1A 0C 0E 04 1A 02 0E 06 14 60 01 1A 01 00 14 AF 62 1A 25 86 01 00 AC 62 1A 0A 86 01 00 AC AB B3 30 69 82 01 AB 8C 97 72 16 02 92 04 09 6A 07 AB AB B1 30 69 16 01 82 01 AB 8C 97 57 00 19 08 ) FUNCTION DOCUMENTATION #S(HASH-TABLE EQ (:AND-WRITABLE-NOT-MULTILINE . 34.) (:AND-WRITABLE-MULTILINE . 30.) (:MULTILINE . 21.) (:WRITABLE . 15.) (:ALL . 5.) (:CONTROL . 1.) ) CONTROL-TABLE FULL-TABLE HALF-TABLE LINE-EDIT-TABLE DOCSTRINGS-TABLE ) ) #Y(#:TOP-LEVEL-FORM-117 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL *EDITOR-ACTIVE*) *EDITOR-ACTIVE* ) #Y(#:TOP-LEVEL-FORM-118 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL *SAVED-SCREENS*) *SAVED-SCREENS* ) #Y(#:TOP-LEVEL-FORM-119 #30Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 0A D9 DA 37 07 7C 04 70 1C 30 56 C4 19 01 ) (SPECIAL *EDIT-SCREENS*) *EDIT-SCREENS* 13. ) #Y(#:TOP-LEVEL-FORM-120 #30Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 0A D9 DA 37 07 7C 04 70 1C 30 56 C4 19 01 ) (SPECIAL *SCREEN-PATHS*) *SCREEN-PATHS* 13. ) #Y(#:TOP-LEVEL-FORM-121 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL *ACTIVE-SCREEN*) *ACTIVE-SCREEN* ) #Y(#:TOP-LEVEL-FORM-122 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL ERROR-SCREEN) ERROR-SCREEN ) #Y(#:TOP-LEVEL-FORM-123 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL TRACE-SCREEN) TRACE-SCREEN ) #Y(#:TOP-LEVEL-FORM-124 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL HELP-SCREEN) HELP-SCREEN ) #Y(#:TOP-LEVEL-FORM-125 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL MAIN-SCREEN) MAIN-SCREEN ) #Y(#:TOP-LEVEL-FORM-126 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EDIT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EDIT #37Y(00 00 00 00 00 00 01 00 00 07 00 2A 01 3A 02 01 00 0B 00 00 0E 00 1B 08 AA 6C 02 01 2E 03 19 03 D9 06 01 00 51 ) *EDITOR-ACTIVE* EDITOR-ACTIVE #Y(EDIT-1 #343Y(08 00 04 00 00 00 00 00 00 01 2D 01 10 02 52 81 3C 6A 02 2E 03 41 02 9C 10 04 9E 10 05 6A 05 DE 30 47 10 07 E0 8B 53 0F 6A 09 2D 0A 0F 08 14 AB E3 AC 32 01 02 16 02 E4 8B 53 21 6A 09 E5 E6 E7 E8 E9 EA EB EC ED EE EF F0 6A 05 72 02 35 2C 0C 0A 0F 0C 14 AB EA AC 32 01 02 16 02 F1 8B 53 1F 6A 09 E5 F2 E7 F3 E9 F4 EB F5 ED 64 1E EF 64 1F 2C 0C 0A 0F 19 14 AB 64 20 AC 32 01 02 16 02 64 21 8B 53 80 58 6A 09 E5 64 22 64 23 64 24 6D 03 25 E7 64 26 E9 F4 EB 64 27 2C 08 0A 0F 21 14 AB 64 28 AC 32 01 02 16 02 6A 21 64 29 64 2A 64 2B 64 2C 6D 03 25 03 2D 7B 02 71 4B 2F 2E 6A 21 29 2A 01 00 0B 00 00 AA 6C 2F 01 6A 30 30 6B 06 00 00 F6 71 4B 2F 2E 6A 21 E3 E3 2C 03 31 64 32 8B 53 03 CE 0F 32 52 80 48 46 33 80 43 6A 08 0E 34 79 2E 35 AC 6C 36 01 03 37 4F 2F 02 10 38 07 00 01 1B 16 6A 09 6A 32 72 01 01 6A 39 6A 32 EA 8F 01 2F 13 0E 3B 14 2C 03 3C 39 01 00 A3 33 00 11 50 0C 00 01 1A 51 0E 3A 1A 6B 0C 00 01 1A 48 53 6A 3D 70 A3 31 4C 0F 34 6A 09 62 64 3E AC 32 00 26 16 01 6A 02 2E 3F 54 12 03 16 02 53 6A 02 37 01 31 7F 54 11 19 01 ) NIL SCREEN:MAKE-WINDOW *WINDOW* SCREEN:WINDOW-SIZE GLOBAL-SCREEN-HEIGHT GLOBAL-SCREEN-WIDTH #\Space BLANKS MAIN-SCREEN *EDIT-SCREENS* MAKE-SCREEN 0. ERROR-SCREEN :TITLE " Errors: " :OLCHAR #\E :HEIGHT 10. :WIDTH 50. :TOP-LIN 2. :LEFT-COL -53. TRACE-SCREEN " Trace: " #\T 15. 70. 8. 3. 11. HELP-SCREEN " Key bindings " " Tastenzuordnung " " Associations des touches " SYSTEM::LANGUAGE #\H 78. 12. " ===========================================================================" " K E Y B I N D I N G S" " T A S T E N B E L E G U N G" " A S S O C I A T I O N S D E S T O U C H E S" (" ===========================================================================" "" "" ) INSERT-LINELIST #Y(EDIT-1-1 #28Y(00 00 00 00 02 00 00 00 00 03 62 D9 AE AE 70 5F 6D 04 02 07 00 01 5C 0C 00 01 19 03 ) NIL #Y(EDIT-1-1-1 #38Y(00 00 00 00 03 00 00 00 01 19 AE 63 63 B0 2C 04 00 AE 01 02 D9 62 2C 05 02 DB AF 37 02 30 8E AC AF 30 89 9C 19 05 ) SYSTEM::DO-FORMAT-CHARACTER 25. SYSTEM::FORMAT-TABULATE " --> " ) FORMAT ) DOCSTRINGS-TABLE SET-CURSOR *ACTIVE-SCREEN* EDITOR *SAVED-SCREENS* ACTIVATE-SCREENS #Y(EDIT-1-HANDLE-COMMAND #477Y(04 00 02 00 01 00 00 00 01 17 C4 4F 81 CD A0 25 02 81 BF 00 48 00 C6 0F 04 1A 81 BC C8 0F 04 1A 81 B6 C9 0F 04 1A 81 B0 CB 1A 81 A7 6A 07 93 05 90 01 01 74 9F 5A 0F 04 1A 81 9D CB 1A 81 94 91 04 05 6A 04 60 01 FA 6A 07 93 05 90 01 01 6C 6A 07 93 05 72 01 01 6E 0A 92 00 0A AA 6A 07 37 06 CE F7 8D 62 3A CF 1A 37 E4 6A 04 DB 90 02 2F 36 6A 07 6A 04 72 01 01 6E 0A 6A 07 6A 04 AB AB 62 32 01 02 16 02 6A 0D 6A 04 AB AB 62 32 01 02 16 02 92 00 0A AA 6A 07 37 06 CE F7 8D 62 01 CF 0F 04 16 01 1A 81 32 CB 1A 81 29 AB AB 2F 0F 16 02 1A 81 25 6A 0D 6A 04 8F 01 01 0F 6A 0D 6A 04 2D 0E 14 AC AC AC 32 01 02 16 03 6A 07 6A 04 72 01 01 6A 0D 6A 04 72 01 01 9B 1F 4F AB E4 E4 6D 03 10 93 01 94 02 9C 10 11 1A 08 AA 01 02 B1 30 60 16 01 AF 62 EA 37 01 70 79 AA EA 8E 04 6C 00 16 01 11 16 05 1A 80 D1 6A 07 6A 04 72 01 01 2D 0E 14 2F 0F 1A 80 C2 CB 1A 80 52 5A 1A 1F E0 6A 09 30 8D 16 02 1A 80 B1 62 6A 07 37 06 71 62 92 00 65 91 05 66 EB EC ED 6D 03 16 2E 17 14 46 18 0B AC 2B 19 01 10 1A B0 30 EA 11 47 F6 14 23 1B 4D 6A 07 AB AD 6F 1C AB AE AC 32 01 02 16 02 6A 0D AA AD AD 32 01 02 16 01 1A 80 60 CB 14 6A 09 30 8D 16 01 1A 80 62 62 6A 07 37 06 71 62 92 00 6B F5 62 64 1E 93 08 6D 03 1F 64 20 AD 37 02 70 2F 64 21 AF 64 22 64 23 64 24 64 25 6D 0A 26 AA A2 5B 5B 5B 77 2F 27 AA 2E 28 AA E4 E4 2C 03 29 6A 07 AA AD AD 32 01 02 16 01 6A 0D A2 5B 77 A3 5B 5B 5A 79 AB AE AC 32 01 02 16 02 9C 0F 04 16 02 1A 06 CB 14 6A 09 30 8D 50 19 03 19 03 ) NIL HANDLE-COMMAND #S(HASH-TABLE EQ (:FORM . 357.) (:LOAD . 278.) (:SAVE-AS . 246.) (:SAVE . 162.) (:DELETE . 87.) (:HIDE . 46.) (:TOP . 27.) (:HELP . 17.) (:TRACE . 11.) (:ERROR . 5.) (:LEAVE . 2.) ) 10. *ACTIVE-SCREEN* 11. 12. *EDIT-SCREENS* #\Bell *TERMINAL-IO* HIDE-SCREEN #.#'EQ 0. *SCREEN-PATHS* GET-SAVE-PATH SCREEN-TO-FILE MAKE-READ-FROM-SCREEN-STREAM *PACKAGE* "EOF" " File to load: " " Lade: " " Fichier α charger: " SYSTEM::LANGUAGE LINE-EDIT NIL #Y(EDIT-1-HANDLE-COMMAND-1 #13Y(00 00 00 00 00 00 00 00 01 16 C4 48 00) NIL #.ERRORVAL ) *ERROR-HANDLER* #.ERRORVAL FILE-TO-SCREEN :TITLE #Y(EDIT-1-HANDLE-COMMAND-2 #25Y(00 00 00 00 02 00 00 00 01 18 D8 AE 30 8D AC AE 30 89 D8 AE 30 8D 9C 19 04 ) #\Space ) FORMAT :OLCHAR :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN INSERT-STRING INSERT-LINE SET-CURSOR ) EDITOR-ACTIVE *EDITOR-ACTIVE* CONTROL-TABLE FULL-TABLE HALF-TABLE EDIT1 *SCREENS* #Y(EDIT-1-2 #19Y(00 00 00 00 01 00 00 00 00 02 92 01 03 AB 2E 00 00 19 02) HIDE-SCREEN ) SCREEN:CLEAR-WINDOW ) SYSTEM::EXEC-WITH-KEYBOARD ) ) #Y(#:TOP-LEVEL-FORM-127 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) RETURN-NIL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(RETURN-NIL #13Y(00 00 00 00 00 00 00 00 01 16 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-128 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EDIT1 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EDIT1 #49Y(02 00 01 00 03 00 00 00 00 04 00 2A 03 7E 04 00 00 7E 03 00 01 7E 02 00 02 67 00 00 2E 00 C4 4F 0E AD 6C 02 01 AE 6C 03 01 9C 73 9C 33 1A 7A 19 05 ) ACTIVATE-SCREEN EDIT #Y(EDIT1-READ-EDIT-COMMAND #26Y(00 00 00 00 00 00 00 00 00 01 68 00 01 2E 01 6A 02 6E 03 6A 02 2E 04 15 19 01 ) NIL SET-CURSOR-VISIBLE *WINDOW* SCREEN:READ-KEYBOARD-CHAR SCREEN:WINDOW-CURSOR-OFF ) #Y(EDIT1-EXECUTE-EDIT-COMMAND #100Y(02 00 01 00 01 00 00 00 00 02 C4 4F 80 54 AE 8C 20 0C AE DA 90 01 0C 06 AE DB 90 01 07 25 AE 68 00 02 37 01 30 68 41 02 91 00 2F B0 68 00 03 98 05 70 68 68 00 01 35 01 1D 23 DE 6A 07 30 8D 16 02 1A 1C DC 68 00 03 98 05 70 68 68 00 01 B0 35 02 1D 0C DE 6A 07 30 8D 1A 05 E0 9D 51 16 02 50 19 02 19 02 ) NIL HANDLE-COMMAND #\Space #\Rubout :STRING-CHAR RETURN-NIL #\Bell *TERMINAL-IO* EDIT ) ) ) #Y(#:TOP-LEVEL-FORM-129 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GET-SAVE-PATH SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-SAVE-PATH #49Y(02 00 01 00 00 00 00 00 00 01 62 1A 05 E1 6A 0A 30 8D D8 D9 DA 6D 03 03 2E 04 F6 46 05 0B AC 2B 06 01 10 07 B0 30 EA 11 47 F6 14 23 08 5F 15 19 01 ) " Save as: " " Abspeichern als: " " Garder sous le nom: " SYSTEM::LANGUAGE LINE-EDIT NIL #Y(GET-SAVE-PATH-1 #13Y(00 00 00 00 00 00 00 00 01 16 C4 48 00) NIL #.ERRORVAL ) *ERROR-HANDLER* #.ERRORVAL #\Bell *TERMINAL-IO* ) ) #Y(#:TOP-LEVEL-FORM-130 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) LINE-EDIT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(LINE-EDIT #60Y(00 00 00 00 01 00 01 00 00 08 3A 01 02 C3 F7 D9 DA DB DC DD B1 6D 06 06 AA AD 2F 07 AA 6A 08 6A 09 6D 03 0A AB 2E 0B 93 00 23 0C 0D E6 AC DA 71 32 E7 72 01 01 31 49 19 05 E5 00 51 ) "" :HEIGHT 1. :WIDTH 40. :TITLE MAKE-SCREEN INSERT-STRING NULL-TABLE LINE-EDIT-TABLE EDIT1 HIDE-SCREEN :LEAVE HANDLE-COMMAND SCREEN 0. ) ) #Y(#:TOP-LEVEL-FORM-131 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FILE-TO-SCREEN SYSTEM::REMOVE-OLD-DEFINITIONS #Y(FILE-TO-SCREEN #92Y(03 00 01 00 02 00 00 00 00 03 D8 62 D9 AF 37 01 70 F5 6D 03 02 DB AE 37 02 70 2F DC B0 DD DE DF E0 6D 0A 09 AD 8C F9 31 AD E2 37 03 70 FC 52 16 AD AD 2F 0B 92 02 05 14 37 01 31 7F 3D 53 05 00 00 00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 01 AA E4 E4 2C 03 0D 15 19 03 ) :TITLE #Y(FILE-TO-SCREEN-1 #25Y(00 00 00 00 02 00 00 00 01 18 D8 AE 30 8D AC AE 30 89 D8 AE 30 8D 9C 19 04 ) #\Space ) FORMAT :OLCHAR :TOP-LIN :WIDTH 78. :HEIGHT 13. MAKE-SCREEN :INPUT INSERT-STREAM 0. SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-132 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SCREEN-TO-FILE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SCREEN-TO-FILE #79Y(03 00 01 00 02 00 00 00 00 03 D8 AD D9 71 32 AA 71 4A 71 9A AD DA 37 03 C6 F7 70 FC 52 21 B1 DC DC B0 B2 B2 72 01 01 71 4A B1 2C 06 05 92 02 05 14 37 01 31 7F 3D 53 05 00 00 00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 03 02 19 03 ) SCREEN 1. :OUTPUT :RENAME 0. WRITE-REGION ) ) #Y(#:TOP-LEVEL-FORM-133 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) FINISH SYSTEM::REMOVE-OLD-DEFINITIONS #Y(FINISH #13Y(00 00 00 00 01 00 00 00 00 02 D8 C4 51) EDIT (:FINISH)) ) #Y(#:TOP-LEVEL-FORM-134 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-READ-FROM-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-READ-FROM-SCREEN-STREAM #116Y(00 00 00 00 03 00 02 00 00 0F 00 2A 04 7E 05 00 00 7E 04 00 01 3A 03 01 00 0B 00 02 3A 02 01 00 0B 00 03 9B 2A 01 D8 B2 D9 31 32 0B 00 00 06 01 02 1C 30 06 01 03 1B 0E 67 00 00 67 02 02 72 01 01 31 4A 0B 01 03 9B 2A 03 00 0B 00 00 0B 00 01 AA 6C 02 01 62 2F 03 0B 00 02 14 AB 6C 04 01 3F 02 19 09 67 00 00 71 4A 31 9A 0B 01 02 06 01 03 1C 46 1A 52 ) SCREEN 1. #Y(MAKE-READ-FROM-SCREEN-STREAM-1 #106Y(00 00 00 00 00 00 00 00 00 01 68 02 01 68 02 03 8F 01 30 80 40 68 02 01 68 02 03 90 01 2D 0A 68 02 02 68 02 04 8F 01 32 2C 68 01 01 68 02 01 72 01 01 07 02 01 0C 00 01 07 02 02 0C 00 02 14 AB 71 4A 8F 01 32 12 AA 68 02 02 AC 31 4A 0C 02 02 14 3F 03 19 02 00 19 01 68 02 01 31 99 0C 02 01 C4 0C 02 02 6A 02 D9 C6 1A 66 ) NIL 0. NEWLINE-AS-STRING 1. ) MAKE-BUFFERED-INPUT-STREAM #Y(MAKE-READ-FROM-SCREEN-STREAM-2 #42Y(00 00 00 00 00 00 00 00 00 01 68 00 03 6E 01 AA 23 02 0F 68 02 01 AB 68 02 02 32 01 34 14 3F 02 19 02 68 00 01 07 00 02 1A 73 ) NIL SYSTEM::BUFFERED-INPUT-STREAM-INDEX 0. ) ) ) #Y(#:TOP-LEVEL-FORM-135 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-WRITE-TO-SCREEN-STREAM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-WRITE-TO-SCREEN-STREAM #34Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 67 01 00 D9 AB DA 80 32 00 2F 03 19 03 ) #Y(MAKE-WRITE-TO-SCREEN-STREAM-1 #18Y(00 00 00 00 01 00 00 00 00 02 68 00 01 AC 2F 01 19 02) NIL INSERT-STRING ) SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM ) ) #Y(#:TOP-LEVEL-FORM-136 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(MAKE-WRITE-TO-SCREEN-STREAM-WITH-FLAG #90Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 80 42 9D 5B 77 9E 5B 5B 77 37 01 71 92 37 01 71 92 DA AB AF 7A 02 7A 01 DB AD 7A 02 DC DD DE B1 7A 01 DF B2 B4 7A 03 E0 E1 E2 B6 7A 02 7A 02 E3 B7 CF 7B 02 7A 03 7A 04 7A 02 E5 B0 7A 02 7A 03 60 04 19 07 AC 2E 01 19 03 ) 3. SYSTEM::MACRO-CALL-ERROR LET CURSOR-TO-END-OF-TEXT MAKE-BUFFERED-OUTPUT-STREAM FUNCTION LAMBDA INSERT-STRING WHEN PLUSP LENGTH SETQ (T) SCREEN-COL ) ) #Y(#:TOP-LEVEL-FORM-137 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EVAL-REGION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EVAL-REGION #211Y(02 00 01 00 05 00 00 00 00 06 92 04 80 7B 00 2A 02 00 0B 00 00 0B 00 01 B0 B0 B0 B0 B0 6D 05 00 6A 01 2E 02 10 03 9F 2A 01 0E 04 0B 00 00 14 2E 05 AA 6C 06 01 67 01 00 DF AB E0 80 32 00 2F 09 16 01 10 0A A2 2A 01 0E 0B 0B 00 00 14 2E 05 AA 6C 0C 01 67 01 00 DF AB E0 80 32 00 2F 09 16 01 10 0D 46 0E 0F AC 2B 0F 01 10 10 B9 37 03 70 79 30 5F 11 47 42 14 B4 37 01 31 7F 92 00 2E 06 0B 00 1B 29 37 01 30 91 1A 18 00 19 06 EB D7 51 EB 03 15 51 E9 37 01 30 8D EA 37 01 30 8D 37 01 30 90 93 00 82 01 37 01 30 86 91 00 67 37 01 30 91 6A 03 37 01 31 7F 6A 0A 37 01 31 7F 6A 0D 37 01 31 7F 06 0B 00 1B 45 06 0B 01 1B 43 02 16 01 12 03 19 08 ) MAKE-READ-FROM-SCREEN-STREAM MAIN-SCREEN MAKE-WRITE-TO-SCREEN-STREAM *STANDARD-OUTPUT* ERROR-SCREEN CURSOR-TO-END-OF-TEXT #Y(EVAL-REGION-1 #31Y(00 00 00 00 01 00 00 00 00 02 68 00 01 AC 2F 01 AB 71 4A 8D 95 03 00 19 02 02 0C 01 01 19 02 ) NIL INSERT-STRING ) SCREEN 3. MAKE-BUFFERED-OUTPUT-STREAM *ERROR-OUTPUT* TRACE-SCREEN #Y(EVAL-REGION-2 #31Y(00 00 00 00 01 00 00 00 00 02 68 00 01 AC 2F 01 AB 71 4A 8D 95 03 00 19 02 02 0C 01 02 19 02 ) NIL INSERT-STRING ) *TRACE-OUTPUT* NIL #Y(EVAL-REGION-3 #25Y(00 00 00 00 02 00 00 00 01 18 6A 01 30 91 98 02 6A 01 AE 9F 36 02 C6 48 00 ) NIL *ERROR-OUTPUT* FORMAT #.ERRORVAL ) *ERROR-HANDLER* #\Space #\; EDIT (:ERROR) (:TRACE) ) ) #Y(#:TOP-LEVEL-FORM-138-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) EVAL-BLOCK SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EVAL-BLOCK #24Y(01 00 00 00 01 00 00 00 00 02 97 00 44 AC 66 00 00 01 2E 01 40 45 19 02 ) EVAL-REGION GET-BLOCK ) ) #Y(#:TOP-LEVEL-FORM-138-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) EVAL-BLOCK FUNCTION "evaluate block contents" "Block-Inhalt auswerten" "Θvaluer le contenu du bloc" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-138-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) EVAL-BLOCK ) #Y(#:TOP-LEVEL-FORM-139 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GET-WHITESPACE-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-WHITESPACE-RIGHT #83Y(00 00 00 00 01 00 02 00 00 0D 3A 02 06 D8 AE D9 80 32 02 3A 01 06 D8 AE DA 80 32 01 D8 AE DB 71 32 AA 71 4A 71 9A AB AF 72 01 01 DC AB 37 05 A6 F9 DD 71 62 91 00 13 16 01 AF AC 8D 04 12 84 05 C9 FA AC B0 81 01 01 00 1A 61 B0 AB 3F 02 19 08 00 19 07 ) SCREEN 2. 3. 1. #\Space #.#'EQL 0. ) ) #Y(#:TOP-LEVEL-FORM-140-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) SKIP-WHITESPACE-RIGHT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SKIP-WHITESPACE-RIGHT #28Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 41 02 9C 1E 08 AD AC AC 2C 03 01 19 04 19 04 ) GET-WHITESPACE-RIGHT SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-140-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) SKIP-WHITESPACE-RIGHT FUNCTION "skip whitespace right" "Whitespace nach rechts ⁿberspringen" "sauter le blanc α droite" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-140-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) SKIP-WHITESPACE-RIGHT ) #Y(#:TOP-LEVEL-FORM-141 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MODIFIED-READTABLE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MODIFIED-READTABLE #23Y(00 00 00 00 00 00 00 00 00 01 37 02 70 72 D8 D9 62 AD 30 74 15 19 01 ) #\| #Y(MODIFIED-READTABLE-1 #37Y(00 00 00 00 02 00 00 00 00 03 62 AD 62 37 02 70 7F 23 00 03 00 19 03 D9 DA AE DB DC DD 6D 03 06 DF B1 32 04 1F ) #\# STREAM-ERROR :STREAM "~S from ~S: |# is legal only after #|" "~S von ~S: |# ist nur nach #| zulΣssig." "~S de ~S : |# est permis qu'aprΦs #|" SYSTEM::LANGUAGE READ ) ) ) #Y(#:TOP-LEVEL-FORM-142 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GET-NEXT-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-NEXT-OBJECT #127Y(04 00 02 00 01 00 03 00 00 11 3A 03 06 D8 AF D9 80 32 03 3A 02 06 D8 AF DA 80 32 02 3A 01 03 2D 03 F7 AE AE AE 2C 03 04 41 02 91 01 0D 01 04 3F 04 19 07 01 04 3F 04 53 1A 3A B0 AC AC 2C 03 05 41 02 52 30 46 06 19 AC 2B 07 01 10 08 02 10 09 CD 10 0B 04 13 10 0C BC 63 62 63 30 7A 12 04 47 14 23 0D 4F D1 44 B0 66 00 00 04 66 00 00 02 35 00 40 45 53 66 00 00 01 37 01 31 7F 54 19 09 ) SCREEN 2. 3. MODIFIED-READTABLE GET-WHITESPACE-RIGHT MAKE-READ-FROM-SCREEN-STREAM NIL #Y(GET-NEXT-OBJECT-1 #13Y(00 00 00 00 00 00 00 00 01 16 C4 48 00) NIL #.ERRORVAL ) *ERROR-HANDLER* *READ-SUPPRESS* #.MOST-POSITIVE-FIXNUM SYSTEM::*BACKQUOTE-LEVEL* *READTABLE* #.ERRORVAL #.#'VALUES ) ) #Y(#:TOP-LEVEL-FORM-143-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) MARK-NEXT-OBJECT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MARK-NEXT-OBJECT #24Y(01 00 00 00 01 00 00 00 00 02 97 00 44 AC 66 00 00 01 2E 01 40 45 19 02 ) MARK-REGION GET-NEXT-OBJECT ) ) #Y(#:TOP-LEVEL-FORM-143-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) MARK-NEXT-OBJECT FUNCTION "mark next Lisp object" "NΣchstes LISP-Objekt markieren" "marquer le prochain objet Lisp" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-143-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) MARK-NEXT-OBJECT ) #Y(#:TOP-LEVEL-FORM-144 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GET-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-TOPLEVEL-FORM #207Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 D8 AE DB 71 32 AC AC 72 01 01 1A 16 14 80 99 02 16 01 1A 23 85 03 AE AE 81 01 01 01 14 80 4A 02 16 01 DC AB 63 37 04 A3 F8 DD 71 62 91 00 5D AD 24 06 61 C9 F8 16 01 16 01 2D 07 14 AC 62 E0 1A 13 AD AD AD AD 7A 04 83 07 16 04 1A 80 5C 5A 43 19 09 85 02 B0 AD 72 01 01 DC AB 37 05 DD 71 62 92 00 80 46 AB AB 70 35 E1 37 03 8B B8 3C AA AD 90 01 31 36 9B F8 B4 AF AC B2 2C 04 0A 41 04 92 03 26 14 B6 8F 01 2F 0C AD B6 90 01 2D 1A AC B5 90 01 31 14 B5 AC 8F 01 2F FF A6 B5 AC 90 01 2D 07 B4 AB 8F 01 31 FF 99 16 04 16 02 AC 24 06 FF A1 91 01 FF 99 01 04 3F 04 19 09 ) SCREEN 1. 2. 3. #\Space #.#'EQL 0. MODIFIED-READTABLE #.MOST-POSITIVE-FIXNUM (#\; #\)) GET-NEXT-OBJECT ) ) #Y(#:TOP-LEVEL-FORM-145-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) MARK-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MARK-TOPLEVEL-FORM #24Y(01 00 00 00 01 00 00 00 00 02 97 00 44 AC 66 00 00 01 2E 01 40 45 19 02 ) MARK-REGION GET-TOPLEVEL-FORM ) ) #Y(#:TOP-LEVEL-FORM-145-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) MARK-TOPLEVEL-FORM FUNCTION "mark surrounding top level form" "Toplevel-Form markieren" "marquer la forme entourante extΘrieure" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-145-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) MARK-TOPLEVEL-FORM ) #Y(#:TOP-LEVEL-FORM-146-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) EVAL-TOPLEVEL-FORM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EVAL-TOPLEVEL-FORM #24Y(01 00 00 00 01 00 00 00 00 02 97 00 44 AC 66 00 00 01 2E 01 40 45 19 02 ) EVAL-REGION GET-TOPLEVEL-FORM ) ) #Y(#:TOP-LEVEL-FORM-146-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) EVAL-TOPLEVEL-FORM FUNCTION "evaluate surrounding top level form" "Toplevel-Form auswerten" "Θvaluer la forme entourante extΘrieure" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-146-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) EVAL-TOPLEVEL-FORM ) #Y(#:TOP-LEVEL-FORM-147 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GET-NEXT-TAB-POS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GET-NEXT-TAB-POS #97Y(00 00 00 00 03 00 00 00 00 04 D8 AE D9 71 32 AA AE 72 01 01 AA 71 4A AE AB 8F 01 32 12 AB AF 70 35 24 02 19 DA AC 37 05 A6 F9 DB 31 62 1D 30 15 19 06 DD AF 72 02 35 AB 32 01 34 19 07 AB AF 70 35 23 04 6E DA AC 37 06 A7 FA 71 62 92 00 0B DA AD 37 05 A2 F9 DB 31 62 1D 03 9C 19 08 19 08 19 07 ) SCREEN 1. #\Space #.#'EQL #\( 2. ) ) #Y(#:TOP-LEVEL-FORM-148 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CURSOR-TO-COL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CURSOR-TO-COL #59Y(00 00 00 00 02 00 00 00 00 03 D8 AD D9 71 32 D8 AE DA 71 32 AB AB 72 01 01 AA 71 4A AF AB 90 01 30 11 AB B0 2F 03 AB DC AC 37 01 31 4F B0 AD AC 2C 03 05 B0 AD B1 2C 03 06 19 07 ) SCREEN 1. 2. RESIZE-ARRAY #\Space REFRESH-LINE SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-149-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) NEXT-INDENT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(NEXT-INDENT #45Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 AB 23 03 0D AD AE 96 03 AD 2C 03 05 14 2F 04 19 04 AD D9 AC 32 02 35 1A 73 ) SCREEN 2. 3. 0. CURSOR-TO-COL GET-NEXT-TAB-POS ) ) #Y(#:TOP-LEVEL-FORM-149-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) NEXT-INDENT FUNCTION "insert spaces up to next tab stop" "Leerstellen bis zur nΣchsten Einrⁿckung" "ajouter des espaces jusqu'au prochain tabulateur" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-149-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) NEXT-INDENT ) #Y(#:TOP-LEVEL-FORM-150 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 DA 30 56 C4 19 01 ) (SPECIAL *SEARCH-STRING*) *SEARCH-STRING* "" ) #Y(#:TOP-LEVEL-FORM-151-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) SEARCH-FIRST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SEARCH-FIRST #27Y(00 00 00 00 01 00 00 00 00 02 D8 D9 DA 6D 03 03 6A 04 2F 05 0F 04 AB 2E 06 19 02 ) " Search: " " Suche: " " Chercher: " SYSTEM::LANGUAGE *SEARCH-STRING* LINE-EDIT SEARCH-NEXT ) ) #Y(#:TOP-LEVEL-FORM-151-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) SEARCH-FIRST FUNCTION "search for a string" "Nach Textstⁿck Suchen" "chercher une chaεne" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-151-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) SEARCH-FIRST ) #Y(#:TOP-LEVEL-FORM-152-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) SEARCH-NEXT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SEARCH-NEXT #94Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 D8 AD DA 71 32 D8 AE DB 71 32 AC 71 4A AB AE AE 72 01 01 71 4A 8F 01 2F 22 00 14 91 00 15 84 03 14 AC 8D 04 27 6A 04 AF AF 72 01 01 37 08 80 69 00 1C 6B B0 AE AC 2C 03 05 19 07 6A 04 AE AE 72 01 01 37 08 B5 80 99 05 31 69 1A 4E 00 19 07 ) SCREEN 1. 2. 3. *SEARCH-STRING* SET-CURSOR ) ) #Y(#:TOP-LEVEL-FORM-152-2 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC 6D 03 05 2C 03 06 3D 19 01 ) SEARCH-NEXT FUNCTION "continue searching" "Weitersuchen" "continuer α chercher" SYSTEM::LANGUAGE SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-152-3 #13Y(00 00 00 00 00 00 00 00 00 01 C3 19 01) SEARCH-NEXT ) #Y(#:TOP-LEVEL-FORM-153-1 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 3D 19 01) C-H-DOC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(C-H-DOC #24Y(00 00 00 00 01 00 00 00 00 02 62 D8 D9 DA 6D 03 03 95 03 2C 03 04 19 02 ) "show window ~D" "Fenster Nr. ~D nach oben bringen" "montrer la fenΩtre ~D" SYSTEM::LANGUAGE FORMAT ) ) #Y(#:TOP-LEVEL-FORM-153-2 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-A :CONTROL (:TOP 0.) (C-H-DOC 0.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-3 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-B :CONTROL (:TOP 1.) (C-H-DOC 1.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-4 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-C :CONTROL (:TOP 2.) (C-H-DOC 2.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-5 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-D :CONTROL (:TOP 3.) (C-H-DOC 3.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-6 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-E :CONTROL (:TOP 4.) (C-H-DOC 4.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-7 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-F :CONTROL (:TOP 5.) (C-H-DOC 5.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-8 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-G :CONTROL (:TOP 6.) (C-H-DOC 6.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-9 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-H :CONTROL (:TOP 7.) (C-H-DOC 7.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-10 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-I :CONTROL (:TOP 8.) (C-H-DOC 8.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-11 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\HYPER-J :CONTROL (:TOP 9.) (C-H-DOC 9.) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-12 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-G :CONTROL (:HELP) (DEUTSCH "Hilfefenster (diesen Text) nach oben bringen" ENGLISH "show help window (this text)" FRANCAIS "montrer la fenΩtre d'aide (celle-ci)" ) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-13 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-E :CONTROL (:ERROR) (DEUTSCH "Errorfenster nach oben bringen" ENGLISH "show error window" FRANCAIS "montrer la fenΩtre des erreurs" ) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-14 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-T :CONTROL (:TRACE) (DEUTSCH "Tracefenster nach oben bringen" ENGLISH "show trace window" FRANCAIS "montrer la fenΩtre des traces" ) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-15 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-Q :CONTROL (:DELETE) (DEUTSCH "oberes Fenster wegwerfen" ENGLISH "delete current window" FRANCAIS "enlever la fenΩtre courante" ) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-16 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-X :CONTROL (:LOAD) (DEUTSCH "File laden" ENGLISH "load file" FRANCAIS "charger fichier") BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-17 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\CONTROL-W :CONTROL (:SAVE-AS) (DEUTSCH "oberes Fenster als neues File abspeichern" ENGLISH "store to new file" FRANCAIS "placer le contenu dans un nouveau fichier" ) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-18 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 2C 04 04 3D 19 01) #\Escape :CONTROL (:LEAVE) (DEUTSCH "Editor verlassen" ENGLISH "quit editor" FRANCAIS "quitter l'Θditeur" ) BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-19 #20Y(00 00 00 00 00 00 00 00 00 01 D8 D9 98 02 2C 03 03 3D 19 01) :STRING-CHAR :WRITABLE INSERT-CHAR BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-20 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\HYPER-Can :MULTILINE CURSOR-UP BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-21 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\HYPER-Dc2 :MULTILINE CURSOR-DOWN BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-22 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\HYPER-Dc4 :ALL CURSOR-LEFT BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-23 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\HYPER-Syn :ALL CURSOR-RIGHT BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-24 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\HYPER-Em :MULTILINE PAGE-UP BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-25 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\HYPER-Dc3 :MULTILINE PAGE-DOWN BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-26 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-P :MULTILINE CURSOR-UP BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-27 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-N :MULTILINE CURSOR-DOWN BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-28 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-S :ALL CURSOR-LEFT BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-29 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-D :ALL CURSOR-RIGHT BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-30 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-A :ALL CURSOR-TO-START-OF-LINE BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-31 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-F :ALL CURSOR-TO-END-OF-LINE BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-32 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-B :ALL SET-BLOCK-START BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-33 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-K :ALL SET-BLOCK-END BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-34 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-U :ALL HIDE-BLOCK BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-35 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\Return :AND-WRITABLE-MULTILINE INSERT-LINE BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-36 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\Return :AND-WRITABLE-NOT-MULTILINE FINISH BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-37 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-Y :AND-WRITABLE-MULTILINE DELETE-LINE BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-38 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-J :AND-WRITABLE-MULTILINE COMBINE-LINES BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-39 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) (#\Backspace #\Rubout) :WRITABLE BACKSPACE BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-40 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-V :ALL SKIP-WHITESPACE-RIGHT BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-41 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) #\CONTROL-R :ALL MARK-NEXT-OBJECT BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-42 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) (#\CONTROL-O #\HYPER-K) :ALL MARK-TOPLEVEL-FORM BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-43 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) (#\CONTROL-L #\HYPER-L) :AND-WRITABLE-MULTILINE EVAL-TOPLEVEL-FORM BIND-KEY ) #Y(#:TOP-LEVEL-FORM-153-44 #18Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01) #\Tab :WRITABLE NEXT-INDENT BIND-KEY ) #Y(#:TOP-LEVEL-FORM-154 #20Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 63 30 56 C4 19 01) (SPECIAL *USE-ED*) *USE-ED* ) #Y(#:TOP-LEVEL-FORM-155 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 58 19 01) ED) #Y(#:TOP-LEVEL-FORM-156 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ED SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ED #314Y(03 00 01 00 00 00 01 00 00 07 3C 01 01 04 92 05 16 AF 8D 1D 04 AF 8E 0A 20 0E 00 1B 11 A0 14 2E 03 19 06 2D 01 19 06 0E 00 1B 78 C5 1A 70 DC B0 37 01 70 F7 60 02 1A 80 4A AF 88 05 80 E3 A0 F9 AD 2E 07 F8 14 8C 54 80 E6 AC 7F 5B 01 1B 06 9D 5D F7 1C 80 DA AB 8E 20 80 D5 AF 87 05 06 AB B0 8E 04 80 CB AC E0 37 01 80 86 00 1C 80 C1 0E 00 1C 16 E1 AD 6A 0A 94 03 93 04 37 0C 7D 07 F8 70 8A 60 05 14 2E 01 19 06 2D 0B 14 AA E4 37 03 70 FC 52 1D 93 04 AD 30 88 AC 30 90 AC 30 90 92 02 05 14 37 01 31 7F 3D 53 05 00 00 00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 01 AA 71 01 AB 2E 03 AB 71 01 AB 90 01 30 80 50 AB E5 37 03 70 FC 52 34 0E 0A 10 0A 1A 0D AA 01 02 94 0C 70 60 37 01 30 87 16 01 AF 62 E6 37 01 70 79 AA E6 8E 04 67 16 01 11 92 02 05 14 37 01 31 7F 3D 53 05 00 00 00 1C 0C 1A 06 05 00 00 00 1C 04 14 63 31 7F 54 16 01 AD 8E 0C 03 AF 2E 0F 16 01 9F 19 07 AF 8E 20 0A AF DE 80 2F 03 14 87 05 FF 11 E8 E9 EA EB 6D 03 14 B1 32 01 1F ) *USE-ED* EDIT "" EDIT-FILE :LOAD SYSTEM::FUNCTION-NAME-P 0. SYSTEM::GET-FUNNAME-SYMBOL SYSTEM::DEFINITION :FORM *PACKAGE* EDITOR-TEMPFILE :OUTPUT :INPUT "EOF" COMPILE ERROR "~S cannot be edited." "~S ist nicht editierbar." "~S ne peut pas Ωtre ΘditΘ." SYSTEM::LANGUAGE ) )